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Anmeldelser og tests 

Joystick 6 

VI har sammenlignet 10 af de mest 
poputere joystick pi markedet og 
kommet med en personfig vurde- 
ring. 

Programanmeldelser 12 

Der kommer stadig nye program- 
mer, og de biiver mere og mere 
avancerede. 

Databasesystemer 16 

Vi harkikket pi forske/lige databa- 
ser til Commodore 64. 

Boganmeldelser 30 

Dei har vseret sm&t med danske 
boger, men vi harlwst nogJe engel- 
ske. 



Commodore comer 24 

Svar pi en masse spsndende 
sporgsrrral fra iasserne 

VIC20-CBM64 26 

Hvor ligger hvad i hviken compu- 
ter? Se hvor forskellen tfgger. 

Basicpointere 28 

Fa" en bedre torsi&else for, hvordan 
din computer fungerer. 
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Justering af kassettestationen 32 

Der er kommet et program med 

v&rktej, si man sefvkan justere sin Programmer 

kassettestation. 



Typehjulsprinter DPS 1120 33 

Commodore har en ny typehjuls- 
printer pi vej til en fornuftig pris. 




Tips, tricks og vejledning 

Prlnterudskrift af karakter-rom 9 

En kort hjeelperoutlne til din sam- 
ling af program meringsvserktoj. 

MaskinkodedeM 11 

Introduktion tiien anderledes form 
for programmering. 



Tipsprog ram del 2 8 

Nu kan du lave systemreekker og 
danne mere eller mindre tllfasldige 
rsekker. 

Base-mager 19 

En personlig opfatteiseafengelske 
fagudtryk, samtet godt og gratis al- 
ternate til dyre databaseprogram- 
mer. 

Sojleprogram 29 

En li He routine, du kan have stor 
glasde af, n£r du seJv programme- 
rer. 

Maskinkodemonitor 36 

En virketig effektiv maskinkodemo- 
nitor i 100% maskinkode med »/'o7- 
otsikkert* tndtastningsprogram. 

Nyttigehjffllpeprogrammer 40 

Tre programmer, derikke m$ mang- 
le i en programmers samling. 



Lsesernes egne programmer 51 

W modtager mange gode program- 
mer fra Iseserne - hvornir fir vi dit? 



Andet 

Forhandleroversigt 47 

Vi er faldet p§ knas for redaktionen 
af Buyers Guide og fiet udskrevet 
atie Commodore-forhandiere. Find 
din naermeste forhandlerf 

Personal Computer Society 63 

En amerikansk ld6 9 Dan mark. Man 
vii ogsa gerne i kontakt med Com- 
modore-brugere, 

Indtastningsvejledning 64 

/_a?5 den for du begynder at taste 
programmer ind. 



Programlistninger 



Databaseprogram 


19 


Supenmon64 


36 


Uncompactor 


41 


Compactor 


42 


Data-maker 


43 


Tipsprogram 


44 


Spogelsesjagt 


52 


Dynamit Harry 


S3 


Snake 


55 


Hydro Raider 


56 


Battleship 


58 


* 
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er det ikke - men det er billigt 




RKD- MODEM 

Dei norske modem med typebetegnelsen 
WM 3000/C er nu ogsa kommet til Dan- 
mark. Modem'et er specieli konsiruerei til 
Commodore 64, Der medMger et program 
(il opkald af databaser. kommunikalion 
mellem 64'ere, kommunikalion mellem en 
64"erogen anden computer og teledaia. De 
forsie 500 modems levcrcs mccl skak til 
modcmhrug. Dalaernc overfores mcd: 300/ 
300 full duplex. 1200/75 halv duplex. 



Kr. 



2.995,- 



SPEED-DOS Hardware udvidelse til 64 & 1541 

Load-hastighed: l<> x hurtigere 

Dutu-overferscl: 8 x hurtigere 

Formatering: 23 sekunder 
Indbygget monitor & Centronics interla- 
ce. Fuld DOS 5,1 mcd udvidclscr. Ingcn 

software skal loades. Bruger ikke hukom- 
melse. Funktionstaster belaet med ofie brugie funkiioncr. Kr. 




1.495,- 




Parallel Printer Interface 

med 1 6K buffer 

Med dette inierfa-ce har man ikke mere et begnrnset 
udvalgnar man vil tilsluiteen primer til sin Commodo- 
re, men man kanvarlge mellem de lorskelligc panillelle 
printcre. der lindes pa markedct- Interface! tilsluites 
den serklle udgang og benytlcr ikke nogen software. 



Kr. 



1.104,- 



80 tegn pa din 
Commodore 64 

HO tcgn/ariirlkkort til 
CBM 64 med digital! 
ur. DANSK tekstbe- 
handling og kalkula- 
tionsprogram. Muljg- 
hed tor hlandct grafik 
og tckst i farve. med 
t'astfrysnine af overste 
linie ogindnygget linie- 
afstand * -7*0 
Pris kr. l./40j- 




MOTHERBOARD 

Tillader tilslutning af flere module r 
f.cks. Simon's Basic ogSO tcgnskortet. 

Mcd : pone 258," 

Med 5 porte 741 j~ 



Hos os kan folk IT at 
handle. 
Vi er altid 
med pa det nyeste. 



Eprom 
braender 



Med program 
til styringen '% 
af cn- 
heden. 
Kun kr. . . 



1.249,- 



Eprom s letter 



Kan slette op til 

4EPROMS ad 

gangen. 
Kun kr. 




Eprom kort 



Med dette kort kan man tilslulte dc 
KFROMS man har bra?ndt til compute- 

Med2sokler . . 299,- 



VI kan bare IP at vzere de bedste! 

MCH 
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B0GER 

Commodore 64 - Datakurs T 

Datakurs I er cn begyndcrbog for allc 
der arbejder med CBM maskiner. 
Bogen starter hell fra bunden med 
mange programeksemplcr. forii! sidst 
at smite med praktisk anvendelige 
r^rogramrutincr ^ gg 




Commudore 64 - Datakurs II 

Datakurs II er en guldgrube for allc 
Commodore 64 ejerc. Bogen har et 
vsld af hjajlpeprogrammer som ogsa 

kan tilfredssiillc den professionelle 

bruger, Bogen er pa ca. 250 sider. 
bvoraf de 70 sider omfatter 1541 
diskctiesiationer og dens r% AO 
hrug.Kr Z40,- 

The anatomy of a Commodore 64 

Bogen gar i dvbden med CBM 
64erens virkemade. Maskinkodcpro- 
grammwer vil isier kunne tide den 
ueialjcrede listning af 64crcns ROM. 
Gennem hele bogen er der program- 
eksempler. sa man kan aiprovc det 
bftle ; i praksis. n<io 
Kr ^40j- 

The anatomy of the 1541 Disk Drive 
Bogen niver en fuld&ttxndig beskri- 
velse a? hvordan disket testation en 
kan anvendes, ved bl.a. brugen af et 
stort antal programeksemplcr. Ma- 
skinkodeprogrammorer vil isarr kun- 
ne lidc den detaljerede list- r* mn 
ningafDOSen. Kr Z4B,- 

Trieks & Tips for your Commodore 64 

Bogen elver ideer til, hvordan man 
I aver effektive programmer, ved brug 
af utallige programeksemplcr. Dette 
giver hobbyprogrammwren utallige af 
nyc muligh'eder. til bl.a. losningen af 
stOTrt opgaver. oao 
Kr Z40,- 

.Maehine Language Book 
for the Commodore 64 

Maskinsprog er yderst fleksibelt og 
det er mellem 10 til lOOOgange hurti- 
gere end tilsvarende programmer 
skrcvel i BASIC, sa hvorfor ikke litre 
at bruge maskinkodc pa en nem made 

ved at IffiSe denne bog? o « o 

Kr Z4o,- 



Vi tagerforbehold 
mod prisaendringer 
og enhver 
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Jeg sidder med bunKen af leeserbreve 
foran mig. De er fyldt med inspiration 
og ben om, lige netop opfyldelsen al 
deres specielle ensker lor blactet; me- 
re begynderstof, mere om avanceret 
programmering, flere spilanmeldel- 
ser, mere »professionelt« stof, flere 
programmer, mere mere mere... 

Der ud over har jeg ogsa mattet ske- 
le til la?sernes ensker om balancen 
mellem dansk og norsk stof i bladet. 
Det bevirker, at bladet i labet af kort tid 
igen bliver 100% dansk, og feg ma" 
med el vist vemod sige tak (or et spaen- 
dende og godt samarbejde med vor 
norske redaktion. 

Tilbage sidder jeg sa og skal prave 
at gore alle ttlpas. vel vidende at del er 
umuligt. Jeg ma preve at dele sol og 
vind lige ved den svsere balancekunst. 
der havde vserel nemmere, hvis bom- 
men havde vaeret bredere, bladet tyk- 
kere. 

Commodore har ogsa forseigl sig 
med balancekunst. 64'eren har en 
darlig BASIC, hukommelsen er Ikke sa 
slor. som man syntes (or to ar siden, 
og mange ting er besvasrlige al arbej- 
de med Sa laver man nogle nye ma- 
skiner, PLUS/4 og C16, hvor man har 
provet at lytte til kritikken. Desvserre 
lyttede man ikke til de, der kritiserede, 
al VIC-20 og C64 ikke var compatible. 
Med f remkomsten af de nye maskiner 
blev den del at billedet helt umuligt. 

For brugerne er navnet Commodo- 
re ensbetydende med adgang til mar- 
kedets starste sottwareudvalg. Dette 



er altalgerende tor, om en computer 
overlever eller ej. Inlet software - intet 
salgog intet salg - intet software. Slan- 
gen bider sig sefv i halen, og kommer 
man ikke ud ai den onde cirkel, dar 
computeren - uanset hvor god den er. 

Med 128'eren, der kommer efler 
sommerferien, har man udfort en an- 
den balancekunst. Man har lavet en 
hjemmecomputer, som man mener 
den ber vaare i 1985 og nogle ar frern. 
For a! softwarebranchen tkke skal go- 
re den lil sorteper, har man stoppet 
nok en computer I »kassen«, nemlig 
64'eren. Med en enkell kommando 
(Go64) bliver den lil en Commodore 64 
og man kan bruge alt sit gamle udstyr 
og programmer. Dette regner man 
med vil give salg nok til. at software- 
branchen vil lave programmer til selve 
128'eren med de nye muligheder, der 
ligger der. Videobranchen har laert at 
leve med tre systemer. Jeg Iror ogsa, 
at computerbranchen ma skabe sig en 
vis form for standard. 64'erens kasm- 
pesucces er i hvert fald ved at gsre 
den lil en del af Commodores stan- 
dard. Man vil ikfce lukke deren lil ver- 
dens storsle sottwareudvalg til hjem- 
mecomputere. Man vil indiil videre ks- 
re videre med. hvad man kunne kalde 
"System 64«. 

Del ger det lettere at holde balan- 
cen, og jeg tror, det er en god ide pa nu- 
vasrende tidspunkt. 



Vi tester 



Af Grith Axe! og Jergen Jorgensen 
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Joysticks findes i mange prisklasser og udferelser. 0versie raakke tra venstre; Bat Handle, The Boss, Competition 
PRO 5000, Tracnball, Superstick 20/64 og Commodore 1311. Nederste reekke fra venstre Arcade, Red Ball, Grip 
Handle og Infrared Joystick. 



H3nden pa hjertet. Mange hjemrne- 
computere bliver nseslen udelukken- 
de brugt som spillemaskiner, og de f te- 
ste bliver i hvert (aid brugt til spil en- 
gang imellem. 

Nu er det de faerreste spil. der fun- 
gerer uden et jocslick og kobet al et 
sadant star hurtigt hajt pa enskesed- 
len. Joystick lindes i naasten enhver 
prisklasse fra omkring kr. 100,- til om- 
kring kr. 6(X) ( -. Udbuddet er ret storl. 
og pris og kvalitet felges ikke nodven- 
digvis ad. 

Kob af Joystick er i hoj grad aftiaen- 
gig af ens temperament og a( den type 
spil, man ynderat underholdesig med. 



er man den lidt febrilske type, der hid- 
sigt kasmper sig gennem et nervepir- 
rende actionspi I , krasver det et joystick 
med korte prsecise bevsegelser. sorn 
man kan tage i begge haender. Er man 
den rolige og llegmatiske type, der 
foretraskker de mere langsomme men 
taktiske spil, tnar man foretraskke et 
joystick med store rolige bevaagelser. 
som man kan stille pa bordet. 

Testen her i RUN er selvfalgelig og- 
sa prseget at disse faktorer. VI har hel- 
ler ikke slidt sa meget pa de enkelte 
joysticks, al det er blevet slidt op. De 
vurderinger vi giver, er baseret pa 
grundlag af et rent umiddelbart indtryk 



samt ved en test, der nalurligvls ogsa 
kun kan vsere subjektiv. Det skal naav- 
nes. at ALLE testede joystick fungere- 
de glimrende og et kab bar bestem- 
mes af eger> smag og pengepung. 

Der findes flere joystick pa rnarke- 
det end de her testede. ligesom de r he- 
le tiden komrner nye til. Vi vll fremover 
felge testen op med lebende oversig- 
ter over nyheder og andre joysticks. 

De her nsevnte joystick er alle til 
Commodore 64A/IC 20. Der findes kun 
enkelte til C1 6/PLUS 4, men ved hjselp 
af et Kile mellemkabel til omkring 100 
kr. kan alle Commodore 64 joysticks 
anvendes til de nye maskiner. 
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Commodore model 1311 



Commodores eget joystick er del bil- 
ligste pa markedet. og det virker ogsa 
umiddelbart som sadant. Det er ikke 
Scerlig solidl og ved ivrig bnjg g^r det 
let fra hmanden. Det er dog nemt al 
skills ad og reparere, hvad der ogsa 
kan blive brug for ved ivrig brug. 

Det er lidt synd, for joysticket virker 
ellers pracist. og har den fordel , a t det 
er let at lhave i handen , Im idlertid e r det 
for let al have staende pa bordet. 

Handtaget kan ikke drejes, og man 
er derfor ikke i tvi vl om bevaegeisesret- 
ningen under brug. Firetasten sidder 
godt for bade hsj re og venstre hand. El 
glimrende joystick for periodisk brug 
og som reserve. 



Supers! ick 20/64 



Detle er det neestbliligste. og det 
mangier ogsa den gedigne fremtree- 
den. Imidlertid er det mere solidt end 
Commodores eget, og en irriterende 
knirken stammer ikke fra de mekani- 
ske dele, men fra seSve kassen. 

Der findes to firetaster, en foran pa 
kassen og en i venstre side. Da lednin- 
gen samtidig sidder I h0jre side, er det 
ikke egnet for venstrehandede, da det 
mere frister til at tage i hsenderne end 
til at have staende pa bordet. Handta- 
get har kugleknop og bevsegelserne er 
korte og virker meget praecise. men da 
der er lavet en underlig forhejning om- 
kring handtaget. er det for lllle at hoide 
om tor en voksen. Det er efter vor me- 
ning derfor bedst egnet som »be-rne- 
joystickn. 



stille pa bordet som til at holde i 
haenderne. 



The Boss 




Ved ferste ejekast virker the Boss 
meget »laekkerR med et behageligt 
formstetn handtag og blede, lydlese 
bevaegelser. Joysticket star godt pa 
bordet. men er mindre vetegnet til at 
have i haenderne pa grund af sterrel- 
sen. Kommandoerne virker imidlertid 
uprsecise. da handtaget meget lei 
drejes, og man i »kampens iver« nemt 
sendrer handtagets retning i forhold til 
selve »kassen«. Der findes kun een fl- 
retast. som er placeret everstpa hand- 
taget. Det er ikke nogen heldig Issning 
til alls typer spil, 

Det er et robust joystick, der er 
bedst egnet til hurtigeactionspil. men 
her kunne man maske savrve »autof i re- 
taste™. 



Competition PRO 5000 



Hvis man ser bort fra udformnmgen, 
minder dette joystick meget om "Arca- 
de". Det har samme sterrelse, samme 
praecise »klik)yde«, men med to fireta- 
ster. Uden forudgaenoeomstilling kan 
disse to taster bruges i fleeng, og det er 
derfor lige velegnet til saveJ hejre-som 
venstrehandede. Det star pa grund af 
udformningen lidt bedre pa bordet end 
»Arkade«. 

Joysticket ligger godt i handen og 
virker sserdeles gedigent. Et virkelig 
godt joystick til prisen. 



kan va3re en fordel i de hurtige action- 
spil. 

Alt i alt to gode joystick, hvor hand- 
tagets udformning er en smagssag. 



Grip Handle 



Et godt og robust joystick i en lidt bedre 
kvalitet end de overfor naevnte. Dette 
stick har fingerformet handtag, men 
andre handtag kan let pasaettes, idet 
det er aftageligt. Yderligere er kransen 
omkring handtaget udskiftelig. sale- 
des at man kan skifte meltem 4 eller 8 
retninger. 

Det har en meget fin preectsion. og 
da det er det mest fleksible. er det vel- 
egnet til alle typer spil. 



Trachball 



Hvis man vil preve noget ud over det 
seedvanlige, er dette joystick maske 
sagen, Der findes ikke noget handtag, 
men derimod en hard kugle, der som 
et kugleleje kan bevaeges i alle retnin- 
ger. Det ser lidt underligt ud. men det 
virker udmaarket. Det er meget stort og 
tungt. og kan kun stapa bordet. Del er 
sa godt som umuligt at edelaegge, da 
man ikke kan rive og fla i det. 

Det findes kun en fi retast, placeret i 
venstre side, men da det star sa* solidt 
pa bordet. er del ingen ulempe for ven- 
strehandede, da begge hsender er fri. 
Et pudsigt "joystick" - om man kan lide 
det eller ej er en vane- el ler smagssag. 



Infrared Joystick 



Arcade 



Det tredje joystick i raakken findes i 
flere farver og er meget traditionelt 
udformet med een firetast i midten 
og et hSndtag med kugleknop. Den 
mekaniske opbygning er anderle- 
des med korte bevaegelser og nogle 
helt praecise »kliklyde«, der meget 
tydeligt indikerer retningen. Man 
f ristes saledes i kke til den voldsom- 
me behandllng, der ofte odeleegger 
bade ens joystick og skulder. Joy- 
sticket virker endog megetsolidtog 
robust. 

Da det er lidt storre end de to f ore- 
gaende. er det lige velegnet til at 



Red Ball 
Bat Handle 

Disse to joysticks er ens. bortset ira 
handtagets udformning.derhenholds- 
vis er en kugle elier et glat handtag. 
Der findes to firetaster - en i toppen af 
handtaget og en pa venstre side. Des- 
uden findes en knap til omskiftning 
mellem de to taster. 

Venstrehandede har saledes mest 
gisede af den overste. 

Joysticket er tungt og solidt og star 
godt pa bordet, hvorimod det er lor 
stort at sidde med i harden i laengere 
tid. 

Det fungerer praecist, men er ma- 
ske en smule for felsornt - hvilket dog 



Hvis du er ire meter fra dit 26 tommers 
farve TV og har problemer med hunde 
og mindre bern., der ustandselig skvat- 
ter i dine ledninger, kan dette joystick 
vaere en losning. 

Der er trades overfersel i lighted 
med de fjernbetjeninger, man i forve- 
jen bruger t il TV. Det bestar al en kasse 
(modtager). der tilsluttes computeren. 
Der bruges ikke batterier til denne del. 
idet det tager strem fra computeren. 

Senderen (selve joysticket) krasver 
fire sma 1.5 volt batterier, og med 
mindre man vil kebesig fatlig i batteri- 
er, skal man huskeatslukke efter endt 
brug. Joysticket har fire sugekopper 
og er derfor det joystick, der sta\r mest 
fast pa bordet. Der findes firetaster pa 
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selve handtaget og pS kassea Joysiic- 
kel har bade aulofire og rnanuel fire- 
funktion. 

Under brug knirker og knager del 
ulideSigt, men det forsvinder maske 
ved Isengere tids brug. Der er tale om 
e1 praecist virkende joystick, der trad- 
losi klarer en afstand pa 10 fod (godt 3 
meter). Den meget teknlk sastter store 
krav til holdbarheden, men denne kan 



Af Jorgen Jorge nsen 

I anden del af vort tipsprogram Oliver 
der rnulighed (or at indtaste system- 
raskker, og der bliver rnulighed for at 
danne nogle »til(aeldige** raskker ud fra 
nogle pa forhand bestemte kriterier. 
Hele herligheden kan naturligvis gem- 
mes p3 band eller diskette, og kan si- 
den hen sammenlignes med ugens 
13*er. 

Programmet begynder at vokse sig 
stort Det fylder nu 64 blokke (ca. 
16000 bytes). Ved at kore det gennem 
compactoren (se side 40) kan pro- 
gramme! reduceres til 43 blokke (ca. 
1 1000 bytes). Programmet ligger pa 
grasnsen at, hvad der er rirneligt at ar- 
bejde med i BASIC. Man kan taktisk 
indtaste tegn hurtigere. end program- 
met kan (slge med. Det skyldes det 
laekre. men leknisk kompllcerede 
skeermbillede, vi har lavet. 



vi tevrigt ikke udtale os om, da vi kun 
har prevet det i kortere tid. 

Selv om gennemgangen ikke omfat- 
ter alle de joysticks, der tindes pa. mar- 
kedet , er det ge nerelle indt ryk er , at de 
lleste joysti cks ikke er egnet til at holde 
i handen. Vi ser frem til den nye type at 
minijoystick, der er specielt designet 
til dette brug. 

Det har vaeret lornojeligt at teste de 



Indtastning af rskker 

Menuen er opdelt i ti punkter, og det 
farste hedder "Indtastning". Der skal 
ikke trykkes RETURN for at komme 
rundt i programmet, da det for det me- 
ste er e n GET kommando, de r tag er sig 
af de forskellige input. Det er naesten 
ogsa generelt, at et M altid vil fore dig 
lilbage til hovedmenuen . Ferste punkl i 
indtastningsmenuen er en «gammel« 
kending og drejer sig om enkeHtrsek- 
ket. Der er ikke noget nyt i den. og et 
tryk pa F Hasten vil slelte sidst indta- 
stede tegn og e1 tryk pa M vil fare tilba- 
ge til hovedmenuen. 

Naaste punkl »Systemra3kker« er til 
gengaald nyt. Her kan du (naturligvis) 
kun indtaste en rsekke pr. kupon. Og&a 
her retler du det sidste tegn med F1 og 
kommer tilbage til hovedmenuen ved 
at taste M. 



forskellige joysticks. Vi har otte vseret 
uenige i vurderingen. og det bekraafter 
kun, at der ikke kan peges pa et be- 
stemt som vasrende det bedste. Vi 
kunne bedst lide Competition PRO og 
Arcade, men du kan kun ved selv at 
prove dig frem finde det, der er det 
bedste for dig. 



Holdbarhed 


Pris 


o 


98,- 


• 


168.- 


* 


250,- 


• 


269.- 




295,- 


* 


399.- 


* 


399,- 


* 


429,- 


* 


499,- 


• 


598,- 



Hvis du vil HALVGARDERE en 
kamp, taster du ferst det ene tegn i 
halvgardehngen. Derefter trykker du 
pa F3, og ordet wHalvgardermg ! ! ! « vil 
komme fremme averst pa skasrmen. 
Deretter trykker du det nasste tegn 
(garderingen) ind. Halvgarderingstek- 
sten forsvinder. og du er klar til naeste 
kamp. Hvis du vil HELGARDERE en 
kamp, taster du ikke noget tegn ind, 
men trykker i stedet pa F4 (SHIFT-F3). 
Kampen vil nu vaere helgarderet. 

I en It lie rude nederst pa kuponen, vil 
computeren lobende holde styr pa, 
hvor mange enkeltrsekker . din system- 
kupon indeholder. Du kan ikke indtaste 
mere, end der er »lovligt«. Nar du er 
fserdig med en kupon , kan du ga" videre 
til naeste med F7 eller tilbage til menu- 
en med M 



Navn Precision Stabilitet Udformning 

Commodore • O • 

Superstick 20/64 • O O 

Arcade • • 

The Boss • • • 

Competition Pro 5000 • • 

Red Ball * • • 

Bat Handle Jfd. # • 

Grip Handle M • • 

Trachbatl 0 + 0 

Infrared Joystick • -fc • 



God * Acceptabel • Ringe o 

Tipsprogram del 2 



a 



THf ajldige rsekker 

Oe Mfseldige rsekker bliver ikke grebet 
hell ud i luften. idet du har ret sior ind- 
ftydelse pa resultatel. 

Du starter med at blive spurgt, hvor 
mange raakker, du Brisker dannet. 

Indtastningsbilledet ser lidt anderle- 
des ud, idet du ud for hver kamp skal 
angive, hvor stor sandsynllghed der er 
tor henholdsvis 1 , X etler 2. Du kan an- 
give i procent etler blot tre forholdstal. 
Du kan f.eks. angive resultatet af 25 
»eksperterso mening (eks. 18-5-3). Der 
vtl i dettilfselde blive dannet bade 1 -tal- 
ler , X'er og 2-talier. men med overvasgt 
til Mailer, 0nsker du IKKE dannet el 
bestemt tegn ud for en kamp, taster du 
ikke noget tal ind. men trykker blot pa 
RETURN. Tre blanke indtastninger ud 
for en kamp vil dog danne helt tilfealdi- 
ge tegn , uden overvsegt til nogle tegn . 

Narduhartastet fordelingenforalle 
iretten kampe, gar computeen i gang 
med at danne dine rsekker. Du kan og- 
sa her felge med i , hvor langt compute- 
ren er kommet. Del er ganske rart, for 
det gar ikke sserlig hurtigt. 

Print af raekker 

Indtil n«ste afsnit er det stadig kun 
muligt at fa skrevet raekkerne ud pa 
skeermen. Det skyldes visse endnu 
uafklarede ting vedrerende udskrift pa 
pnnteren. I undermenuen vedrarende 
skeermudskrifter kan du vaalge mellem 




enkeltraakker og system rsekker. Du 
kan herefter »bladre« stakken af kupo- 
ner igennem. 

Afslutning 

Der er ogsa sket en mindre aendring. 
nar du indtaster 1 3'eren . D u vil nu bl ive 
spurgt, om den skal sammenlignes 
med enkeltraekker etler med system- 
rsekker. Ogsa her kan du felge med I, 
hvadraekkecomputerenernSettil. Du 
kan ovenikebet se, nar den finder en 
gevmstraekke. 

Til sidst kan du selvtelgelig gemme 
dine raekker pa band eller diskette for 
senere indlEesninej. 



Versioner til de svrige computere vil 
blive bragt i nseste nummer, men pro- 
grammet ti I VIC-20 og C1 6 vil blive delt 
ud i flere mindre programmer af hen- 
syn til hukommelsen. Programmerne 
til VIC-20 vil krasve udvidelse. 

I nassie afsnit vil vi leegge reducere- 
de systemer og udgangsreekkesyste- 
mer ind I programmer Det er sa me- 
ninges at man kan have sin system- 
samhng liggende pa band eller disket- 
te og blot indtaste udgangsraekke og 
»sikre« kampe. 

Pa gensyn i naeste nummer. 



Printer-udskrift af karakter-rom 



Programme! er beregnet til at udskrive kan underseges f .eks. ved sendring af 

hete karaktersaettet i Commodore-64 det bestSende karakterseet. Udskrif- 

p£ en printer. Udskriften er i stor star- ten ta'r lidt tid. For det ferste flyttes he- 

relse, sade enkeltedots i karaktererne le karakter-ROM'en over i RAM-omra- 



det 12288 og fremefter, for det andet 
fylder udskriften 8 sider, sa hav lidt tal- 
modighed. 



K 


ft R fl 


KTERUDSKRIFT 


50 FORI -8TO4 095 : POKE I +12288 .PEEKC I +53248 




UNEXT 








50 POKEI .PEEKC1 DOR4 








70 P0XE56334 .PEEKC56334 30R1 


1 


rem 


xxxxxxxxxxxxxxxxxxxxxxxxx 


80 OPENt .4: C =0: A = 12288 


2 


REM 


X x 


90 FORI=0TO7:P*= ':FORP=0TO7 


3 


REM 


x PRINTER-UDSKRIFT AF * 


100 N=PEEK(A+I+8»P 3:G4= ':G = 128 


4 


REM 


x KARAKTER-ROM EBM-64 * 


110 IFNANOGTHFNGi=Gi+" T 5X03" -'GOTD130 


5 


REM 


■ AF: BJARNE U JENSEN * 


120 G*=GV» t S/WD" 


6 


RPM 


* it 


130 G=G/2: IFG>= 1 TMEN1 10 


7 


REM 


xxxxxxxxxxxxxxxxxxxxxxxxx 


140 P*^P*i *G*t " : NEXT 


8 


REM 




150 PRINTS ,CHR*( 15 5LEFT*(P4 ,79 3CHR4CB ) 


3 


REM 




160 NEXT : PR I NTs 1 : PR I NT * 1 : PR 1 NT» 1 : A -A+64 : 



10 PRlNTCtlRli:i42)"f CLRJtCN] KARAKTER-ROM 
-UDSKR IFTC 3SPC3FYLOER 8 SIDER" 
20 P0KE52,48:P0KE5B.48:CLR 
30 P0KE56334,PEEKt56334)AN0254 
40 POKE! .PEEKC i 3AND251 



C=C+1 

170 IFCCAND7 )=0THENFORI =0TO1 9: PRINT" 1 ' NE 
XT 

180 IFC<64THEN90 
190 PRlNTM , CHRiC 15 ): CL0SE1 



g 



Vierflyttet! 
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Maskinkode 1. del 

Af Jan Brondum og Jorgen Jorgensen 



De fleste er sikkert stodt pa ordet 
maskinkode, og har faet en opt at- 
telse af, at man her star overfor no- 
get, der kun er lor de fa og indviede. 
En ting er dog sikkert: det er spild af 
tid at kaste sig ud i maskinkodning, 
for du er helt dus med BASIC. 

Det er ikke meningen, at vi vil lave 
at kursus, der omfatter alt indenfor 
maskinkode. Det er derimod vores 
mening at lave et I i lie kursus, der 
ssetter laeseme i stand til at lave de- 
res egne sma routiner, derkan kob- 
les sammen med et Basic-progra m. 



BASIC 

Nar du laver programmer i BASIC, har 
du sikkert haft problemer med. at dine 
programmer bliver for langsomme, el* 
ler du er labet tsr for hukommelse. 

Basic-programmer er langsomme, 
fordi man ikKe direkte kan fortaslle 
computeren, hvad den skal gore. Den 
forstar ikke umiddelbar. hvad du skri- 
ver I BASIC. Detle kan sammenlignes 
med, at du ser en saatnmg pa et sprog, 
du ikke forstar, og derfor er nodt til at 
sIS hvert eneste ord af sasmingen op i 
en ordbog Del tager sin tid, og hvis du 
er llge sa dum sorn computeren. er du 
nodt til at sla det samme ord op, hver 
gang du stsder pa det. 

Skriver du et program i BASIC, skal 
compute ren oversaatte de! til et sprog, 
den forst&r, og dette sprog hedder ma- 
skinkode. Laver du derimod dine pro- 
grammer direkte i maskinkode, er det 
ikke nedvendigt med denne oversaat- 
telse, og dine programmer vil i gen- 
nemsnit kere 100 gange hurtigere end 
basic-programmer. 

Men ikke nok med at programmer i 
maskinkode er hurtigere - de fylder 
ogsa mindre, hvilket gar del muligt at 
lave Isengere programmer. Maskinko- 
desproget bestar af fa, simple kom- 
rnandoer. der ikke minder meget om 
Baslc-kommandoer . Det er svasn . net- 
op fordi »sproget« er sa simpelt. har sa 
fa »gloser«, man kan udtrykke sig med. 



Hjcelpemldler 

Nar du laver programmer i BASIC, ta- 
ster du direkte ind, hvad du vil have 
computeren til at gore. Dette er ikke 
muligt i maskinkode, for selv om du 
teoretisk kan POKE kommandoeme 
ind. er det i praksis kun meget sma rou- 
tiner, du kan lave pa 1 den mSde. 

For al taste et maskmkodeprogram 
Ind, er du nedt til at have et sserligt 
program, ved hjselp af hvilket du kan 
indtaste maskinkodeinstruktionerne 
(Mnemonic). Du skal have fat i. hvad 
der i daglig tale kaldes en masktnkode- 
monitor - ikke at forveksle med en 
wskaarrTR En monitor kan vise, hvilke 
vaardier, der ligger i computerens hu- 
kommelse. Monitoren bestar i praksis 
ogsa af en ASSEMBLER, som man 
bruger. nar man vil indtaste maskinko- 
deinstruktioner, og en DISASSEM- 
BLER, som man bruger, nar man vil 
■•Isese" maskinkodeinstnjktioner. Der- 
udover findes flere eller farre factlite- 
ter, der gor det lettere at rette eller re- 
aigere masklnkodeprogrammet. Der 
findes dog ingen monitor, der giver 
»syntax error* og fejl kan vsere svaere 
at tinde, da du ikke ved, hvor du skal le- 
de. Gem altid dine maskinkodepro- 
grammer inden du korer dem, da du let 
risikerer at miste dem 

En udmaerket monitor kan i starten 
vasre den, du kan taste Ind fra dette 
nummer af RUN. Er du den lykkelige 
ejer af en PLUS/4 eller C16, har du in- 
gen problemer I den reining, idet disse 
er indbygget i computeren, 



Torre tal 

Vi kommer ikke uden om det. Vi skal 
igennem lidt tarre kendsgerninger, for 
at forsta maskinkodning, 

Computeren bestar af 65536 adres- 
ser. der er nummereret fra 0 til 65535. 
Disse adresser kan betragtes som 
nummererede »skuffer«, i hvilke der 
kan lasgges et tal mellem 0 og 255. 
Dette kender vi fra POKE og PEEK i Ba- 
sic. Hver af disse adresser bestar af en 
byte, der igen bestar af 8 bits. En bit er 



den mindste enhed i computeren, og 
kan sammenlignes med en kontakt, 
der kan vasre enten taendt eller slukket. 

□a der kun er disse to muligheder, 
kan computeren egentlig kun skelne 
mellem to tal, nemlig 0 og 1 {slukket/ 
taendt). Disse to tal udgor det binasre 
talsysem eller totalsystemet. I mod- 
sastning til vort »normale« talsystem 
decimalsystemel eller tilalssystemet. 

For at gere det hele mere komplice- 
ret. arbejder man i maskinkodning 
med det talsystem, der kaldes det HE- 
XADECIMALE eller i daglig tale blot 
HEX. Del bestar af 16 forskellige tal. 
Da de gamle arabere. fra hvem vort ti- 
talssystem stammer, ikke havde for- 
udset EDB-ucMkJingen, ma vi suppiere 
de traditionelle ti tal med bogstaver fra 
A-F. Lad os prove at taalle efter de tre 
systemer: 



Decimal 


Hex 


Bineert 


0 


0 


oooooooo 


1 


1 


00000001 


2 


2 


00000010 


3 


3 


0000001 1 


4 


4 


00000100 


5 


5 


00000101 


6 


6 


0O0O0110 


7 


Wm 


0O000111 


a 


8 


ooooiooo 


9 


9 


00001001 


10 


A 


0O001010 


11 


B 


00001011 


12 


C 


00001100 


13 


D 


00001101 


14 


E 


00001110 


15 


F 


00001111 


16 


10 


00010000 


32 


20 


00100000 


64 


30 


01000000 


128 


40 


10000000 


153 


99 


1O011001 


154 


9A 


10011010 


255 


FF 


11111111 



Som du ser, svarer tallet 255 (bin) til 
11111111, d.v.s. alle otte kontakter 
tsendt i en byte, og 0 til alle kontakler 
slukket. 



Se endvidere side 12 ► 



Maskinkodemonitoren 

Vi vil ikke her ga i detaljer mecf, hvor- 
dan en monilor fungerer. I fortScettel- 
sen af RUNs maskinkodekursus vil vi 
hele liden referere til denne monitor og 
vil forklare, hvordan man bruger den. 
For de, der i (orvejen kender lidt lit ma- 
skinkpdnlng, vil vi her korl beskrive 
kommandoerne: 

AJIe kommandoer slartes med et 
punktum. 

1. ASSEMBLER 

Eks.:.AC000LDX $12 
Dette vil tasggevEerdten 12(HEX)i 
X-registret med start adresse 
COOO(HEX) 

2. DISASSEMBLER 

Eks.: D C000 

vil disassemble fra adressen 
COOO 

3. Print DISASSEMBLER 

Eks-: .P 2000.2040 

Printer tra adresse 2000 til 2040, 

hvis du i forvejen har g]ort printe- 

ren klar med kommandoen 

OPEN1,4:CMD1 



4. FILL MEMORY 

Eks.: .FCO00 DOOO FF 

Vil Isegge vasrdien FF (255 dec) i 

a He adresserne [ra COOO til DOOO. 

5. GO RUN 

Eks.: .GCOOO 

Vil ga t»l adressen COOO og 
RUN'ne programmet der. 



6. HUNT(S0G) 

Eks.: .HCOOO DOOO DO 

Vil vise de steder i adresseomra- 

det (COOO til DOOO) , der indehotder 

DO. 



7. LOAD 

Eks.: 1 "TEST'.OS 

Vil LOAD'e programmet "TEST' 

fra diskette. (01) for kasselte. 



8. MEMORY DISPLAY 

Eks.: .MCOOOCOFF 
Vil vise hukommelsesindholdet 
fra adresse COOO ttl COFF pa 
skaarmen . 



9. REGISTER DISPLAY 

Eks.: ,R 

Vil vise den aktuelle vaaFdi a* regi- 
strene. 

10. SAVE 

Eks.. .S , TEST" I 01.COOO,DOOO 
Vil gemme programmet "TEST" 
pa kasselte fra adresse COOO til 
DOOO. Pa diskette skal 01 sendres 
til 08. 

11- TRANSFER (flyt hukommelse) 

Eks.: T COOO COFF DOOO 
Vil flytte indholdet i adresseomra- 
dei COOO lil COFF til adresseom- 
radet slartende med DOOO. 

12. EXIT (til Basic) 

Eks.: .X 

Vil samite monitoren ud af drift og 
vendetilbage til Basic. Kom tllba- 
ge med »RUN« eller (hvis start- 
adresse sendret) med komman- 
doen SYS2048. 



Program side 36 



Vi tester 



Raid on bungeling bay 



Dette spil ligner sa mange andre, for* 
staet pa den made, at det gar ud pa at 
skyde og bombe - og seiv undga at 
blive ramt. 

Spillet foregaV pa en gruppe oer, der 
er godt bevogtel af raketter og radar. 
Pa nogle af ©erne findes der nogle fa- 
brikker, som det er di n opgave at bom- 
be sender og sammen. 

Der skai bruges adskillige bomber 
for at edelasgge en fabrik. og nar du 
ikke har flere, ma du tilbage tif dit han- 
garskib for fa en ny forsyning og evt. 
reparere dine skader. Nar du har 
sprEBngt den Jerste fabrik, gselder del 
om at have ejnene med dig, for sa be- 
gynder derogsa at komme flyvemaski- 
ner, og de er bestemt ikke venligl ind- 
slillet. 



Det hele lyder maske megel sim- 
pelt, men da din helikopter flyver rundt 
mellem 0erne ( og dit hangarsktb er t 




fart, er det ikke altid lige nemt at finde 
det, nar du har brug for det. 

For at gore det endnu mere indvik- 
lel. skal du samlidig holde 0je med 



fjendens krydser, som ligger i havn pa 
en af oeme. og er ved at blive opbyg- 
get. Den ma heist ikke komme ud at 
sejle, da dine chancer for at klare dig 
bliver meget sma - for ikke at sige naa- 
sten umulige - men prov selv! 

Graf ikken er vaeldig fin ; og del er og- 
sa sjovt at have el stort areal at spllle 
pa. Det kan maske virkenoget ensfor- 
migt, men da det er ret vanskeligt, va- 
rer det nogen tid, far man bliver sa god. 
at spillet bliver kedsommeligt. 

Brugervejledningen er desvasrre 
kun pa engelsk, og er ikke saarlig god, 
men al t i alt er der tale om el godt spH , 
der hasver sig over gennemsnittet. 

Spillet importeres af CBS 
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J Slapshot 

Commodores fodboldspil »Soccer« er 
del bedste fodboldspil , jeg har set til 
dato. Nar taien er om ishockey vil ]eg 
vove den pastand, at »Slapshot« er del 
bedste ishockeyspil, der findes til 
Commodore 64. Der er tale om en vir- 
kelig god grafik, og der er fart over fel- 
tet, nar »spillerne« skajter hen over 
isen. Lyden er ogsa en klasse for sig. 
Ikke alene horer man lilskuernes be- 
gejstring, computeren kan ogsa tale, 
sdledes at man herer dommerens 
kommentarer. 




mum * 1 

Spillet gar over tre perioder pa hver 
tre minutter. Spilleme bevasger gig og 
erobrer pucken efter sarnme msnster 
som i Soccer. Man kan nedlasgge en 
modstander, og bliver straffet, hvis 
man spiller ureglementeret ha>dt 



Spillet kan spilles i tre hastigheder. 
og folger de almindelige regter for 
ishockey. Det eneste minus ved spillet 
er, at man ikke kan spille mod compu- 
teren, men er nod til at finde en »leven- 
de« modstander. 

Brugervejledningen er pa engelsk. 
men da der ikke er behov tor de store 
udredninger, har det ikke den store be- 
tydning i dette spll. 

El fremragende spil ira ANIROG, 
der importeres af Twilight Findes pa 
band og diskette. 



Spil til C16/PLUS 4: 



Det er smal med udbuddet af sottwa re 
til de to nye Commodore maskmer, 
men enkelte ting er dog begyndt at 
dukke op. 

Fra Commodores egen produktion 
kan man i hvert fald glaede sig over, at 
programmeringssproget LOGO nu og- 
sa kan las til C16/PLUS 4. Versionen er 
den samme som til Commodore 64 og 
prisen er ogsa den samme, nemlig kr 
430,- 

Pa sptlfronten er Commodore ogsa 
kommet med to spil i cardridge versio- 
ner - d.v.s. programkapsler. som stik- 
kesind bag pa computeren. Beggespil 
krsever joystick og kosterkr. 195,-. Det 
skal ogsa nasvnes. at begge spil har en 
udmaarket dansk vejledning. 




Det tcrste - VI D UZZLES - er det go- 
de gamle pustespil, der nu er overtcrt 
tit skaermen. Her kan familiens yngste 
fa det forste kendskab tit den teknolo- 
gi. der er deres fremtid. Elektronikken 
kan dog ikkeerstatte den fysiskebero- 
ring med brikkerne - en ting, der i hvert 
laid for de yngste er veesentlig. Spillets 



svaghed er ogsa. at man ikke kan over- 
skue alle brikkerne pa een gang. Der 
findes flere billeder og man kan vaslge 
mellem 25 eller 50 brikker Man kan I i- 
geledes vaalge, om omridsel af brik- 
kerne skal vasre tegnet pa sksermen. 
Grafikken er nydelig og tor at age kon- 
kurrence/stressmomentel, bliver der 
taget tid pa lasningen af puslespillet 
For voksne er det lidt kedsommellgt, 
men om born foretraakker »rigtige« 
brikker, skal jeg lade vsere usagt. 




Det andet spil fra Commodore hed- 
der JACK ATTACK og er lidt mere 
spasndende. Jack er en underlig lille 
skabning, der elsker at odelsegge bal- 
loner. AlmindeKge balloner er det nu 
ikke, for de er lige sa gode lil at ade- 
laagge Jack som omvendt. Der er ad- 
skllllge svaerhedsgrader og billeder, 
og spillet er ret underhoidende, seiv 
om ogsa dette spil nok mest appeJlerer 
til den yngre generation. 

Supersoft I Arhus har lanceret en 
del lavprisspil (kr. 39.85) og blandt dis- 
se lindes ogsa VEGAS JACKPOT til 



C16. Det er ganske enkelt den enar- 
mede tyveknsegt, der i denne version 
har fire ruder med »frugter«. Flot gra- 
fik, men middelmaclig vejledning pa" 
engelsk (dansk vejledning kommer). 
Kan man lide enarmede tyveknaagte, 
far man el godt spil til prisen. 




Det mest udfordrende spil til C16 
kommer fra ANIROG og bliver impor- 
teret af Twihgt. Det hedder nFlight path 
737«.ogeret llysimulatorspil. Kort for- 
talt skal man flyve en jumbojet fra en 
lulthavn over en bjergkcede og lande 
pa den anden side. Der er seks svasr- 
hedsgrader og selv pa den letteste. 
havde jeg meget besvaar. Normalt bru- 
ges joystick til spi f let (fas ogsa til Com- 
modore 64). men i C 1 6 ve rsionen bru- 
ger man tastaturet. der desvaerre vir- 
ker lidt trEegt. Grafikken og lyden er ri- 
melig, men imponerer ikke. vejledmn- 
gen er pa engelsk og lidt for korttattet. 
Alt i alt far man dog et meget fcengslen- 
de og udtordrende spil pa kassette lil 
kr. 129.-. 
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Sa er der tegnefilm 



En af de mest omtalte biograffilm i 
ojeblikket er science liclion-filmen 
Den Sidste Starfighter Dei der gar fit- 
men ekstra interessani for RUNs lee- 
sere er ikke handlingen. men derimod 
at visse scener. der viser rumskibe 
osv. rem grafisk er dannei v.h.a, en 
computer. Filmproducenterneharher 
anvendl en af verdens starste og dyre- 
ste computere, nemiig den sakaldte 
Cray. Muiighederne for at bruge en da- 
lamai til ai lave »tegnetilm« er nu ogsa 
til slede med en Commodore 64. Del 
nye program MOVIEMAKER fra Inter- 
active Picture Systems Inc. importe- 
res fra USA af Dansk Centralagentur 
(DCA). Programme! har allerede et 
slykke tid vaaret forhandlet pa del 
amerikanske marked. MOVIEMA- 
KERS hensigt er underholdning og 
kreativ udfoldelse. men det har ogsa 
veeret anvendt professionelt som film- 
redigeringsvaarktej og i undervfsnrngs- 
sammenhasng. 

Systemet er udviklel af Guy Nouri 
og Eric Prodietz. der er kendt fra deres 
arbejde med tegnefilm i Hollywood og 
for deres interesse for cornputeres 
grafiske »evner«. Fem personer har ar- 
bejdel i to ar pa at faardiggare pro- 
grammet, og de samlede omkostnin- 
ger er lobet op i 200.000 $, selv om for- 
udsigelserne sagde 60.000 $. 

MOVIEMAKER kan fas til CBM 64 
pa en dobbelt-sidet diskette. PS den 
ene side er selve programmet, som 
bruges til at lave og vise "tegnefilm*. 
PS diskettens anden side er der en 
raskke faardiglavede filmsekvenser og 
et »auto-play«-program. som kan bru- 
ges til at afspille ens egne tegnefilm. 

Med systemet foiger en taetskrevet 
vejledning pa 96 sider. Den beskriver i 
detaljer. hvordan man danner og f rem- 
viser filmsekvenser, men den er ikke 
let laest. Det er derlor tilradeligt al give 
sig god tid til at Isese vejledningen m- 
den man giver sig i kast med selve sy- 
stemet. 

Nar man skal lave sin egen nfilm«, er 
man nod til at skulle igennem alle de 
samme trin B som en professionet leg- 
nefilmmand benytter. Kommunikatio- 
nen med computeren sker via taslatu- 
ret og joysticket. Man skal i starten ud- 
vselge de »medvirkende« ved enten al 
tegne dem selv eller ved at benytte de 
figurer. som MOVIEMAKER allerede 
har designed og som findes pS disket- 
ten, Der skal herefter tegnes en bag- 



grund, og der skal vselges de forskeili- 
ge bevsegelsessekvenser. Senere kan 
der tilssertes lyd og forskeilige special- 
effekler. 

MOVIEMAKER rummer sa mange 
muligheder, at der nok vil ga en uges 
tid med at laase og eksperimentere, 
hvis man skal det hele igennem. Ikke 
cfesto mindre kan man komme i gang 
pa fem minutter. og i Icbet af et par ti- 
mer kan man faktisk va?re faardig med 
den farste korle filmsekvens, hvis man 
brugerde fasrdigdesignede figurer Ar- 
bejdet med systemet foregar via 
menuer og letforstaelige kommando- 
er. Fra hovedmenuen kan der vaal- 
ges mellem »compose«, »record«. 
"smooth" og »piay«, der tilsammen 
daekker det, man har brug tor. 

»Compose« er den del at program- 
met, hvor en films grundlseggende se- 
kvenser laves. Normal! vil man starte 
med at lave en form for manuskript el- 
ler oversigt over handlingen og »skue- 
spillerne« osv. I »compose« designes 
de medvirkende, og der vaelges, hvilke 
omgivelser, filmen skal forega t. Nar 
en skuespiller er tegnet eller udvaigt 
fra diskettes kan den kopieres til en 
anden del af skaarmen. Nar defite gen- 
tages mange gange. vi I resultatet blive 
en bevaegelse, hver medvirkende kan 
have tre farver foruden baggrundsfar- 
ven, og antallet af skuespillere i en film 
kan veere seks. Nar de medvirkende er 
sal ind i de rigtige bevasgelsessekven- 
ser, kan de SAVEs i en sserlig fil. 

Negate fase bestar i at optage (»=re- 
cordc) de forskeilige sekvenser og til- 



fe|e lyd og musik. Her kan alle CBM 
64 's avancerede faciliteter udnyttes. 

Under optageisen kan man stadig 
na at lave aandringer I f .eks. farver og 
bevsegelsesbastighed. 

I bade »compose« og »record« er 
der pa skaarmen en sgerlig status-linle. 
Her gives der oplysninger om. hvilke 
sekvens man arbejder med. hastig- 
hed. farve osv. 

Nar man gar videre til »smooth«- 
mode ferries filmens flimmer, og sel- 
ve filmen laegges ind i en MVM MOVIE- 
MAKER-fil. »Smooth«-processen fore- 
gar hell automatisk, og nar den er 
overstaet, er filmen klar til afspilning. 
Dette gares naturligvis I »play«-mode 

Etter at jeg i ca. en maned har brugt 
MOVIEMAKER regelmaesstgt, kanjeg 
varmt anbefale programme!. Det har 
helt klart en stor vaardi for dem, der er 
interesseret i filmarbe|de. Herudover 
mener jeg, at syslemel kan medvirke 
til at udvikle brugerens logiske made al 
taanke pa. Noget der attid er en fordel. 
n^r man beskaaf tiger sig med compu- 
tere. Systemet er ogsa imeressant, 
hvis man vil lave sine egne soil, hvori 
der skat mdga bevsegelsessekvenser. 
Netop med dette for eje har producen- 
ten med vilje ladel visse dele af syste- 
mel vaere ubeskyttede, saledes at de 
frit kan kopieres. For professionelle 
filmfolk kan det nasvnes, at der findes 
en anden version af systemet, der hed- 
der MOVIEMAKER PROFESSIONAL. 
Med dette system skulle dei neml kun- 
ne lade sig gare at lave f.eks- sma re- 
klamefilm. 
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Vi testei^ 



Music Maker 

Commodore 64 er uden diskussion 
den hfemmecomputer, der rummer de 
bedste lydfaciliteter. I virkeligheden 
rummer den en hel synthesizer med 
Ire stemmer og el ulat al va riationer at 
disse stemmer. Desveerre er samme 
lyddel temmefig besvaerlig at arbejde 
med - i hvert fald med computerens 
standard basic Selve lydteorien bag 
disse muligheder er heller ikke lige- 
frem letforstaelig, og nar man dertil 
laegger, at et skrivemaskinetastatur er 
absolut uegnel til al spille pa, er der vel 
ikke noget at sige til . at lydmuligheder- 
ne er nogel at det sidste r man begyn- 
der at eksperimentere med . Vi vil dog i 
el af de kommende numre al RUN fo- 
kusere pa detteemne. 

Har man imidlerlid lyst til at bruge 
sin computer pa del musiske omrade, 
kan man virkelig fa glsede af "MUSIC 
MAKER", som Commodore lancerede 
i slutningen af sidste a>. 

Music Maker bestar af et plastikta- 
slatur, som man Isegger hen over det 
normale lastatur. Tastaturet speender 
over to oktaver. og bestar af nogle fje- 
derbeiastede tangenter. der trykker pa 
nogle af computerens almindeli ge tan- 
genter. 

Tastaturet er let at anbringe. det lig- 
ger fast og virker langl bedre end det 
umiddelbart ser ud til. Selve tangenter- 
ne er ganske vtst Ikke store, men da 
handen hviler behageligt pa den ne- 
derste del af tastaturet. er det godt at 
arbejde med. 

Sammen med tastaturet felger og- 
sa et program ."der forvandler compu- 
teren til et mindre el-orgel. Man kan 
spille med enten en stemme (mono- 
ton) ellerflere stemmer (polyfon). Der- 
udover kan man lasgge rytme pa - fire 
forskellige plus basvarianter, og man 
kan vffilge mellem 8 forprogrammere- 
de instrumenter. Jeg har hert bedre in- 
strurnentimitationer, men det vil ikke 
v«ere retfserdigt at sammenligne med 
en »rigtig« synthesizer, og resuttatet 
her ma siges at vasre fuldt accepta- 
belt. 




Tastaturet spaender som sagt over 
to oktaver, men placeringen af disse 
oktaver kan ogsa let sendres. 0nsker 
man at spille sammen med andre , kan 
man ogsa »stemme« computeren efter 
andre instrumenter. 

Ud over de faste instrumenter har 
man mulighed for at aendre i klangen al 
disse, saledes kan man imitere andre 
instrumenter og pa en let made fa en 
forstaeise af den lydteori. der for be- 
gyndere let kan virke som det rene vo- 
lapyk. 

StSr man pa hell bar bund, falger 
der et sset stickers (selvkleebende 
maarker) med, som man kan klaabe pa 
tangenterne indlii man har laarl, hvor 
tonerne ligger. Foruden brugervejled- 
ningen medfolger ogsa el nodehaafte 
med 28 kendte og populsere melodier . 
Samme nodehastte er opbygget som 
et mindre kursus, hvor man trin for trin 
kan (33re at spille efter noder. 

Nfir man kan spille melodier, kan 
man naturligvis ogsa »gemme« dem 
og fa computeren til at spille dem. Den 
procedure er delt op i to tempi, hvor 
man farst indspiller selve tonerne. 
Derefter laagger man tempoet pa ved 
med rnellemrumstasten at spille melo- 
dien tone for tone i det tempo man sy- 
nes. Den rytme, man dermed vaslger, 
Oliver det endelige resultat. som man 
kan gemme p£ band eller diskette. Pa 
bandet eller diskelten er der »indspil- 



let« 3 melodier, som man kan begynde 
at eksperimentere med (bl.a. »When 
I'm 64« - selvtalgelig). 

Har man lagt dansk karaktersaet i 
sin computer, er der desvaarre et par 
at de hajeste tangenler/toner, der ikke 
»virker«. Det har ikke noget med tasta- 
turet at gore, for hvis man laver sine 
egne programmer (hvad man far lyst 
til) eksisterer det problem naturligvis 
ikke. Tastaturet virker ogsa sammen 
med Commodores program "Music 
machinen, og her erdermeerkeiig nok 
ikke problemer med det danske karak- 
tersaet. Desveerre virker det ikke sam- 
men med "Music composer", der el- 
lers er et langt mere spaandende pro- 
gram. 

Konklusion 

MUSIC MAKER er helt uretterdigt et 
lidt overset program, der har overra- 
sket mig positivt. Vejledning og 
nodehaafte/laerebog er desvserre kun 
pa engetsk, men alt i alt er der tale om 
en glimrende introduktion til musik- 
kens verden. 

For den musiktnteresserede. der 
ansker selv at lave mere sericise mu- 
sikprogrammer, er selve tastaturet et 
godt arbejdsredskab og med et pris- 
leje. der ligger pa omkring 300 kr , sy- 
nes jeg, man far meget for pengene. 
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Database-systemer 

Af Robin Sagar 



Lagring/arkivering og genfinding al da- 
la og information er de vassentligste 
elementer i alie daJabasesystemer 
Lars Frank har 1 en nylig udkommet 
bog definerel en database som »en 
maengde slamregistre, der er organi- 
serel og admintstreret pa en tteksibel 
made, saledes a! databasens registre 
let kan tilpasses nye uforudseteopga- 
ver«. 

En database bestar som regel al 
mange filer og kan grofl sagt opfaltes 
som etelektroniskarkiv. Filerne bestar 
af records/poster, som hver isaar inde- 
holder de samme oplysninger som 
i.eks. et katalogkort i en arkivskuffe. 
Den enkelte record er opdelt i felter, 
der Indeholder de forskellige typer af 
information. Den samlede maengde af 
records i databasen vil vasre organ ise- 
ret efter et ©Her flere togiske prtncip- 
per, f.eks. alfabetisk eller kronotogisk. 

Dalabasesystemer til CBM 64 ffrv 
des der efterhanden mange af. og 
mange af bogerne om 64'eren medla- 
geren programlistning af et database- 
system. Problemet med de hjemmela- 
vede systemer er normall, at de er 
langsomme, bruger for meget memo- 
ry, og at de ikke er scerllg flekstble 

Professionelf fremstillede systemer 
er for de flesles vedkommende bety- 
delig bedre padisse omrader.bl.a. for- 
di de er skrevet I maskinkode. En vigtig 
ting som sortering af records i en base 
er f.eks. bade hurtigere og mere avan- 
cerei i de kommercietle systemer end t 
de (teste hjemmelavede. 

Databaseprogrammers anvendel- 
sesmuligheder er meget store. For 
hjernmecomputerejeren kan t.eks. 
nasvnes navne- og adresselister, regi- 
stering af frimaarke- og mentsamlin- 
ger. boger, plader og band. Hvis man 
har en msndre virksomhed er mulighe- 
deme endnu starre. Her kan databa- 
ser hjaalpe med til at holde styr pa kun- 
deoplysninger og indkobsplaner, der 
kan fores kontrol med varelageret. de- 
bitorer, fakturaerosv. Computerforret- 
ningen Centronn i Kabenhavn brugte 
igennem en lang periode et af de ne- 



denfor beskrevne systemer til at holde 
orden pa indkab og salg af software. 

For jeg gar over til gennemgangen 
af systemerne. vil det vaere pa sin 
plads at forssge al definere, hvilke 
krav man bor stille til el databasesy- 
stem. 

a) Det ideelle system bar kunne 
handtere databaser af alle slarrelser. 

b) Det bar vasre muligt hurtigt at 
kunne genfinde en vilkarlig record i ba- 
sen via fa sagekriterier. 

Begge krav vil naturligvis sjaeldent 
kunne opfyldes samtidig. Der er f.eks. 
den svaghed ved de fleste database- 
systemer til CBM 64. at de lagrer mfor- 
mationern e i en sekventiel f i I . Dette be- 
tyder, at antallet af tegn I hver record 
maksimall kan vasre 255, idet den en- 
kelte record far lildeli en Wok pa dis- 
kettes Hver biok kan rumme 255 by- 
tes og hver byte et tegn Endvidere er 
det sjsefdent, at dlsse systemer kan 
handtere basere pa mere end 664 re- 
eordsflndforsler, eftersom 664 svarer 
til antallet af blokke pa en diskette. 

Til dalabasesystemer knytter der 
sig en del begreber, som maske kree- 
ver en forklaring. Filer, records og f si- 
te r er allerede naevnt , men det er f.eks 
vigtigt at forsta, at der kan vaare tale 
om forskellige typer af felter. Det vig- 
tigste er det sakaldte naglefelt (»key- 
field*). Kun via naglefelterne kan ba- 
sens records genfindes og sorteres. 
Nogle systemer kan kun operere med 
et naglefelt , mens andre har mulighed 
for mange naglefelter. Det skal endvi- 
dere nasvnes, at felter kan besta af ba- 
de bogstaver. heltal, decimaltal, dato- 
er osv. 



Datapro 

Dette er det mindste af de her medtag- 
ne systemer. Ligesom dels »s0ster« 
TEXTPRO (testet i sidste nr. af RUN)er 
det bygget op om et PETSPEED basic- 
program. 

Systemet er menu-styret og giver 
brugeren mulighed lor at lave en data- 
base med op til 200 records, hve r med 



en maksimumstarrelsepa 96 tegn (na- 
turligvis inkl. blanktegn). Formate! pa 
de enkelte indfersler kan ikke frit defi- 
neres, men er fastiagt af systemet pa 
forhand til otte felter, hver pa hsjst 18 
tegn. 

Ved indtastningen af data gives der 
besked, nar et fell er fyldt ud, og man 
far at vide, nar den trie hukommelse er 
vedatvasrebrugtop Pa et hvilke I som 
heist tidspunkt kan man via hoved- 
menuen sparge systemet, hvor meget 
ledig kapacitet der er lilbage. Syste- 
mets ringe starrelse medferer forskel- 
lige begraensninger i brugen af det. 
F.eks. er record -formalet definerel sa- 
dan, at det farste felt altid automatisk 
bliver naglefeltet Endvidere er sage- 
rutinerne begraansel lil enten direkte 
sagning pa naglefeltet, sagning inden 
for et enkelt felt, segning i hele basen 
efter bogstavkombinalloner eller rela- 
tionssagnmg pa mere end et. felt. 

Redigeringsfunktionerne omfatter 
tilfajelse og sletning af records. Print - 
funktionen kan udskrive records til 
1520-plotter og visse Centronic-prin- 
tere. men ikke til RS232-printere. 

Simply file 

Dette er et engelsk databasesystem, 
som er »oversat« til dansk af Thaleia 
Software. Hele systemet er skrevet i 
basic, hvilket gar det nemt at rette i el- 
ler behov. Der er to versioner: en til 
PET/CBMmed4040eller805Odobbel? 
diskettestation og en til CBM 64 med 
en 1541 diskettestation. Det er sidst- 
neevnte version, der her er afpravet. 

Ved opstart skal brugeren definere 
forskellige parametre. Dette gaelder 
det tolafe an tal records, man vi I fa brug 
for og det stsrste antal tegn pr. record. 
Ud fra disse opgivelser vil systemet sa 
afsaatte plads pa disketten. Hvis f.eks. 
databasen er deftneret til 50 records, 
hver pa maksimall 100 tegn foretell pa 
10 teller, vil systemet danne 127 tegn 
pr. record og 12 blokke til den samlede 
base. Pa denne made spildes der na- 
turligvis en del vaardifuld plads pa dis- 
ketten. 
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SIMPLY FILE tillader op til 20 felter 
pr. record og 79 tegn pr. fell. En enkell 
record kan dog aldrig vasrre starre end 
254 tegn. Ifslge brugsanvisningen er 
del teorelisk muhgt al lade alle felter 
veere negiefeiter, men del anbefales 
samtidig, at najes med 2-3 noglefelter. 

Systemet er ikke et af de mest avan- 
cerede, men del rummer dog en rask- 
ke gode funktioner , som gar det muligl 
f.eks. at lave rapporter ud fra basens 
indhold, ligesom man Kan lave bereg- 
ninger inden (or systemet. Det er der- 
imod ikke muligl al design© egne 
sfcasrmbilleder. og der er ingen hjselpe- 
tunktioner. En anden ulempe er , at der 
ikke skeines mellem forskellige felt- 
typer (numeriske, aflanumeriskeosv.). 
Dette betyder begrsensninger t seg- 
ning og udskrift, og kan let fare til ind- 
tastningstejl. 



SUPERBASE 64 

Det dyreste og mesl avancerede af sy- 
slemerne her er SUPERBASE 64. En 
database t dette system kan besta at 
op til 16 filer, der kan »ka2des« sam- 
men. En anden fordel sammenlignet 
med de avrige systemer er, at hver re- 
cord kan rumme 1 107 tegn, fordell pi 
maksimalt 33 teller. Hver record kan 
fylde op til tre skaermsider. Der er en 
hjaelpefunktion med mange skaermbil- 
leder med vejledning, og brugeren kan 
selv v.h.a.en sasrligmemo-lunktton la- 
ve ekstra hjasipebilleder. Til systemet 
liarer en grundig manual. De forsie ka- 
pitler at denne vejledning er en noto- 
rial", der giver-en god indfcring i bru- 
gen af systemets mange faciliteler, 

SUPERBASE kan operere med otte 
forskellige feft-typer. F.eks. kan man 
definere. at et bestemt felt altid skal 
udfyldes. Et andel felt skal mSske vas- 
re konstant i alle basens poster (f eks. 
moms-%). mens et tredje fell altid er 
en dato opbygget pa en besteml ma- 
de. Der er fyldige instruktioner om. 
hvordan man benytter de forskellige 
felt-typer og om udformning af skserm- 
billede-layout. 




En anden vigtig facilitet er de man- 
ge forskellige mdder, fremvtsning og 
udskrift kan ske pa. Fremvisning/dis- 
play pa skaermen kan konirolleres sa- 
ledes, at f.eks. udvalgte records fra en 
nogle-lpste eller kun visse feller fra en 
gruppe records bliver vist. Det mest in- 
teressante i forbindelse med udskrift 
p& printer er rapport generatoren I den 
kan der udarbejdes rapporter. faktura- 
er. markedsplaner og lign. med brug af 
databasens informationer. 

SUPERBASE kan anvendes sarn- 
men med tekstbehandling, idet det er 
fuldl kompatibelt med Easy Script 
Endvidere kan sysiemel kasdes sam- 
men med Basic , hvorvedCommodore- 
Basic far lilfejet ca. 40 ekslra kom- 
rnandoer. SUPERBASE er blevet rost 
og anbefalet af mange engelske og 
amerikanske fagtidsskrifter. Det be- 
tragtes nsesten som en standard, som 
andre systemer bliver vurderel i for- 
hold til. Det skal dog understreges, al 
brugervejledningen bar studeres grun- 
digt far man far det lulde udbytte af sy- 
stemet. Desuden mi man nok regne 
med, at man skal eksperimentere sig 
f rem, nSr det gaelde r design af databa- 
ses og al alting ikke lykkes i farste for- 
S0g. 

Naasten alle typer printere med und- 
tagelse al Commodore 1520 Plotter 
kan benyttes i forbindelse med SU- 
PERBASE 64. 



RDK-BASE 

RKD-BASE er et norsk databasepro- 
gram, der i Norge lorhandles af Data 
Supply A/S og i Danmark af MCH- 
Data. Det er et diskettebaseret system 



med indbygget norsk/dansk karakter- 
saat. Brugervejledningen er naturligvis 
pa norsk, men danske brugere vll i la- 
bet af kon ltd kunne fa en oversasttelse 
fra MCH-Data. 

Hele programmet er menu-styrel 
fra en hovedmen u og sserskilte del e af 
programmet bliver indla?st fra disket- 
len, nar programme! krasver det. Ho- 
vedmenuen har 8 valgmuligheder. af 
hvilke de lerste tre er recordformat, 
skasrmformat og prinformat. Dette er 
det eneste databaseprogram jeg har 
set, hvor recordformat og skasrmfor- 
mat er delt i to forskellige dele. Indtast- 
nmgen af data er enkei og opbygnin- 
gen af databasen ligeledes. Brugervej- 
ledningen giver et lei forstaeSig over- 
blik over de komrnandoer, der ertil ra- 
dighed. En af mine norske venner me- 
ner dog, at opbygningen af manualen 
ikke er let at ialge, og jeg synes al bru- 
gen af de forskellige komrnandoer i 
programmet kunne vsere bedre ud- 
taankt. Saledes kan samme last have 
forskellige funktioner i forskellige dele 
af programme!, og det kan godt virke 
lidt forvirrende. 

RKD-BASE "s tacihteter og be- 
grsensninger er falgende: 

Hver record kan vaare op til 255 ka- 
raklerer lang , og der kan vaare op 1 il 50 
felter pr. record. Hvert felt kan indehol- 
de op til 40 karakterer og af felttyper 
kan man vaalge mellem ti forskellige. 
Imidlertid er der ikke noget datafelt, 
hvllket er en mangel i et ellers i andre 
henseender professionelt prassente- 
ret database-program. Forcli skEerm- 
format og recordformat er adskilte. er 
der sasrskilteparametre forsksermfor- 
matet. Her kan der vaere op tit 19 felter, 
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og op til 20 skffirm/prlnt formater pr. 
database. Op til 6 forskellige farver 
kan anvendes pr. record. Datadisket- 
terne skal tormalteres !ra program- 
met, og hver datadisk kan torsynes 
med et ^password" tor at torhindre 
uvedkommende adganglil databasen. 



stem (f.eks. tekstbehandiing), ma dis- 
se muligheder selvfelgelig ogsa indga I 
overvejelserne. Under alle omstaen- 
digheder vil jeg anbefale, at man Iseser 
en af de boger , der I dag f indes om da- 



tabases inden man bestutter sig for at 
kobe. Desuden kan det vaare en uvur- 
derlig hjseip at tale med erfarne bruge- 
re af dtsse systemer eller den lokale 
computerforretning 



Konklusion 

Hvis man teenker pa at k0be et kom- 
mercielt databasesystem. er der for- 
skellige forhold, man bar overveje. For 
det lorste ma" man gore sig klart, hvad 
systemet skal anvendes til . For del an- 
del bar man lave et overslag over, hvor 
meget ens databaser vil komme til at 
fylde. og for det ?redje md kravene til 
display- og udskriftsformater overve- 
jes. N3r man konkret vurderer de en- 
kelte systemer, er de vigste ting nok 
fieksible recordformater, der lobende 
kan Eendres. S0gemuligheder og svar- 
tlder ved signing. Normal! vil pro- 
grammer skrevel t Basic arbejde vse- 
sentlig langsomrnere end de tilsvaren- 
de i maskinkode. Hvis man taanker pa 
at anvende filer, der erdannet i etdata- 
basesysiem sammen med et andet sy- 



Det originate 




NYT UV i din Commodore 64 & 1541 disk: 

LOAD-hasiiphed 10 x nurtlgere ■ DATA-ovBrtersler 8 x hurtigere • FORMATE- 
RING pft KUM 23 SEK - FULD DATASIKKERHED - LOAD & START program mad 
kun 1 last • DIRECTORY (S) med kun 1 lasi • LOAD fra DIRECTORY med kun 1 tast 
• MONITOR er INDBYGGET • FULD C0MPAT1BELT CENTRONICS INTERFACE er 
indbyggel • FUNKTtONSTASTERNE (som kan slSs fra) er toelagt med mange 
FlNESSER for brugeren • Fuld DOS 5.1 med UDVIOELSER er INDBYGGET • 
HARD-COPY ruline Indbyggel • OLD kommando INDBYGGET • REGNER MED: 
HEX. OCT, BIN • ALT DETTE FUNGERER, SA SNART DU TENDER FOR Dl N 64'er 
- INGEN SOFTWARE SKAL LOADES • Nem og hurtig montering * SpeedDos* 
bruger INGEN PLAOS I DIN computer • SpeedDos" lungerer med ALLE pro- 
grammer. 




* ^ff^^^Z^^erregtstferetvaremsrke 



Software Reviewed. 






Datapro 


U.S. Gold. 


Twilight. 


RKD-BASE 


RKD Data. 


MCH Data Danmark 
Data Supply Norge 


Simply Rle 


Simple Soltware 


U.I.B. Electronics 


Superbase 64 


Precision Soltware 


Twilight 



ffl 



Base-mager 

Af Edgar Thylkjaer 

Selv om jeg ikke erdansk-fanatiker, har jeg aldrig kunnel udsia udtrykket 
»fil«. Ligesa god t, det kli nger, na r man udtaler det pa engelsk, ligesa raed- 
selsf uldt lyder det, n ar man omsatter det til det spidse danske En fil er 
sadan noget, konen bruger til at file sine negle med (det gor sa godt pa ryg- 
I gen) - elleret redskab, konen i vittigheds tegninger indbageri et brad til sin 
stakkels Indespasrrede gemal. 



I dansk dalasprog er del desvasrre 
grundigt indarbejdet. Man har i arevis 
(all om »nyfil«, »gammelfil« - fil mig her 
og fil mig der - og det er for sen1 at gore 
nogel ved del. 

Men man behover jo ikke selval ind- 
ordne sig under »skik og brug« . Da jeg 
tor el ars tid siden gav mig til at over- 
sastte og bearbejde ei databasepro- 
gram, som jeg havde faet tilsendt fra 
en ven i Florida, forsogte jeg at arbejde 
med »registreringer« i stedet tor »fiier«. 

Programmet gar din »64'er« lit en 
rigtig «basemager«, hvor du pa en og 
samme diskette - med et og samme 
program kan styre dine egne helt per- 
sonlige databaser. uansel hvad de 
skal holde styr pa: vennerne. kunder- 
ne ( frimaarkesamlingen, bohavet eller 
bogsamlingen. 

Nar du med din saedvanlige ornhu 
har indtastet, programmet, savet det 
og runner det, starter du i en rutine, 
som du sikkert vil finde anvendelig i 
mange andre af dine egne program- 
mer: en farvejusleringsprocedure, 
hvor du ved tryk pa funktionstasterne 
1, 3 og 5 kan farvesastte skasrmkant, 
baggrund og skrift, sa det er en fryd lor 
0jet. Et tryk pa 'fT bringerdig ind i sol- 



ve databaseprogrammet. der starter 
med at bede dig om at indtaste databa- 
sens navn {hvis det allerede er opret- 
tet) eller trykke 'return', hvis du skal 
oprette en base fra grunden af . 

Sa gaslder det ell ers bare om at sva- 
re pa, hvad programmet sparger dig 
om, og nar din base er oprettet, kom- 
mer du til en hovedmenu, der giver dig 
mulighed for at indskrive, save, soge, 
loade. slutte eller manipulere. Manipu- 
lationen kan du farst bruge, nar du har 
udfart et passende antal indskrivnin- 
ger - den brlnger dig til en menu, hvor 
du kan liste alle registrertnger, liste 
demenkeltvis, sorteredem (pa alle op- 
retlede felter). cendre dem og slette 
dem - du kan ga tilbage til hovedmenu- 
en ved tryk pa 'f8'. 

Nar du har foretaget dine indskriv- 
ninger. skal du huske at 'save' dem 
(*[2' i hovedmenu). Nasstegang.duhar 
brug for basen, og du har vseret gen- 
nem den indledende procedure, hvor 
der sparges om basenavn, skal du 
starte med at 'loade' dine data 05' i 
hovedmenu). Og nar du har foretaget 
dine tilfajelser og aendnnger, skal du 
huske at 'save' igen. 



Forresten kan du frit gare brug af 
bade komrnaer. semikolon og kolon 
under dine indskrivninger, som iavrigt 
skal udfsres med store og sma bogsta- 

ver. 

Nar du soger. Dehaver du ikke at 
indtaste mere end de farste 3-4 bog- 
staver I sagefeltet. 

Pnnttunktionen giver dig mulighed 
for bestemme, hvllke teller, du vil have 
udskrevet i ansket kolonnebredde. 
F.eks. en liste, der kun bestar af navne 
og telefonnumre. 

Hvis du har forsagt dig med profes- 
sionelle databasesystemer som f .eks. 
den langsommelige Practifiie. den 
komplicerede Superbase 64, Easyfile 
eller hvad der ellers findes pa marke- 
det til ret sa ubehagelige priser, sa vil 
du veerdsaatte 'Base-mager'. der kun 
kosler dig et par hyggelige tndtast- 
ningstimer Og sa har du endda fuldt 
frihed til at »omstrikke« systemet, sa 
det helt praecist opfylder dine personli- 
ge behov. 



L COMMODORE 64: 
DATABASEPROGRAM 

10 PRINT CHRK 11 ) 
20 PRINT CHRK8 3 

50 2*= |REUKC/n][36S/»KC/SJ[0FFr 

51 ZZ%= rREUU38SPCH0FF] 

52 X2*= tRFUKC/'ZK3BS/^]r C/^3tOFF3" 

100 REM ««* BflSEIIfiGER *« 

101 U(l )-=0; UC2)=0:Uf 33 = 1 

106 POKE 53280. UC 1 1:P0KE53281 .U( 2 3: P0KE6 
46.UC3) 

108 PRINT T CLR3CCNJ : PR IN TZ*: PR I NTZZt: PR 
lNTXZ* 

109 PRINT r 2CH]t2C0KREU]C5SPC3[S/8JtS/p. 
HS/^l[S/E3[S/t1]C S/m][ S/G3C 5/Ell S/RJC S/S 
PC 3** [S/F3tSyfi3r S/R3rS/U]CS/^3CS/J][SAJ 
USyS3tS/T3CS/Elt S/R31S/I3LS/N3CS/GJ H 

110 PRINT MCNJ[ 14CH3CREU3FUOFF1: C S/K3 
ANT[ 2CN3r8CUjrRFUlF3C0FF3: f S/8 IhGGRUND ' 



111 FRINT TCN3E 13CH3 T REU3F5C OFF 3 : f S/S 3 
KR1FTC2CN3C 10CUICREU]F?COFF3: ES/UIL BP 

SE 1 ' 

112 PRINT r6CNj ZtrPRINTZZVPRINTXZ* 

113 PR I NT T 2CH3C 2C03E REU31 6SPC3F SA/3C LG 
U£U PUNKTIONSTAST" 

3 30 GET KEY* 

131 K^SC(KtmCHRK033-132 
IFK<1 OR K>4 THEN 130 
IFK=4 THEN 150 

U(KJ=UtK)-Ms TFUfK 3=16THENUCK )*0 
6OTO106 

150 PRINT f n.RJC CN3 Z*: PR1 NTZZ*: PRINTXZ* 
155 PRINT r2C83[2C0HREUjr_ 10SPC3tS/U3fiLG 
DATnBnSE " 
REM ****OPS[TNING 
CR* -EHR*C 133 
OPEN 1 .8.15 

PRINT 15CN3C 2CH3C S/S3KRIU BflSENflUN . 



132 
133 
134 
135 



«F 
200 
202 
204 
206 



HUIS OFT FKSISTf RER * PRINT 
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207 PRINT r 2SPCH S/T 3RYK C REU3RETURNC OFF 
1 . HUIS DU UIL :PRINT 

208 3NPUT f 2SPC30PRETTE EN BASE JFI* 

210 IF FI.*= TWCN GOTO 300 

212 IF LEN(FI* }>13THENFI«=LEFT*CFI*,13) 

211 OPEN2.8.I0. , 0:Bn-"*FI»+" .S.R" 
216 INPUT«1 .At ,B* 

218 IFA** B0 'HENGOTO 232 
220 PRINT r CNItREUlDISK FEJL: T OFF J B* 
222 CLOSE 2 
\ 221 F14=~ • 
226 FORT =1(01030 
228 NEXT I 

230 GOTO206 

232 INPUT*? ,N* .NF* 

231 NF=UftL(NF* ) 
236 Did FD*(NF 3 

238 FOR I = 1 TOUflL I NF4 J 

210 INPUT«2 f F0*Cl 3 

212 NEXT I 

211 CU0S£2 
216 GOTO 100 

308 PRINT" rCLRKCN) : PRINTZ*; PRINTZZV PR 
302 PRINT r 2CHJ[2C0irREUjr 18SPCH S/BDt S/ 

fnts/sir s/ei -r s^ojis/p k s/RKS/e)C2S/nt 

S/EKS/L3CS/'S]tS/E3 

301 PRINrT3CN3f 2SPC3CS^S3KRIU ET NflUN F 
OR" 

305 INPUT I 2CH3BASEN' :FJ* 

306 IFFl*= THEN GOTO 301 

308 IFLTNTFI * 1 M 2 THCNF I *=LEFT* CF1 * . 1 3 3 
310 OPEN2.8. It . ■0:BH- +F 1 1 ' .S ,UI 
312 INPUT«1 .01 ,B* 

331 IF At-- BR THEN322 

316 PRINT r fNHREUJDJSK FEJ L : C OFF 1 B4 
318 CL0SE2 

320 GOTO301 

322 PRINT rCNH2SPC3tS/S3KRIU flAKSIflRLT 
ANTAL'' 

321 INPUT r 2SPC]0PTnGELSER :N* 
326 PR[Nr«2.N*CR*: 

328 TNPiir r nut 2spcjr s/hivor honge felte 

R PR. OPTfiP.ri.SE :NF* 

330 Nl" KUfilt'Wf* 3 

332 Din FD4 ( NF > . 

331 PRINT"2 ,MFU'R«l 
336 FORI = UONF 

338 PRINI I WK S.131ESKRIUFLSE FOR FELT 

M 

310 iNPurruif i i 

312 PRINf«2.rO*( I ICR*; 

311 NEXT I 
316 CI 0SE2 

318 RE II **K*NUL-0P TOGELSE 

3 r »0 DPrN2,3,I0. 0: +FIiV .S,U 

352 rORt -1 CONF 

351 PRINT*2, TOO CRi; 

356 NEXT I 

358 C"L0Sf2 

100 ren *x«*rNinniiSflnoN 

102 N=UAlCn4 ) 

1R4 Din REC*(N ,NF 3,RxfND,S^C2*f*i J.UCNF3.F 
CNF 3 ,FtiC NF 3 
406 FORI -BTON 
108 R'All J*J 

110 NEXT I 

112 L=LEN£FD*( 1)3 

111 FUCI 3=L 
416 FORJ =2T0NF 

118 FUCJ jn.ENCFD4CJ 3 .1 

120 IFL<-FWC.nTHENL=FW£J "J 
122 NEXT J 

121 BL*= f 20SPC3 " 
426 N=-i 

500 PRINT [CLR3CCM)"'IPRINT2*:PRINTZZ*!PR 
INTXZ* 



501 PRINT f 2CH)C2COirREU]C7SPC3CS/0]CS. 
It S/S31 S/E3C S/HH S/A3C S^GK S/EK S/R3CS/S 
PC Jx*t S/SPC 31 S^H3C 5/0 J[ SAJJ[ S/E3C S/OJIS/ 
MjrS^EK SVM3C SAJ3 : PRINT "C 4CN3C 5CH3C REU3 
TS/L3C S/OK S/OK S/-SPC3rS/F 31 C/-3C Ss 
RJtS/SK S/T3 1 ItOFFl" 

502 PRINT' T CN3C 5CH3C REU.IFlt OFF 3= T S/-3 3ND 
SKRIUEECNV :PRINT™r5CH3CREU3F2COFF3s \%s 
SJflgECrN)":PRiNT"C5CH]rREU3F3[ 0FF3I C S/S 
JJGE 

503 PRINrrrtBC2Q )' I7COHRE03Fir 0FF3: C S/P 
3RINTERC CN) " : PRlNTTAB(28 ) [ REU3F5COFF3: 
rS/l_30ADC CN 3 

501 PRINTTABC203 t REU lF6t 0FF3 : C S/S3LUTT 
ECCN3 :PRINrTriBC20) CREU3F7COFF3: t S/f13p. 
NJPULEREG CN I ' 

505 PRINT r 5CN 3 Z*- PRINTZZ* : PR INTJKZ* 

506 PRINT T 2CH3C 2C0U REU3T 7SPC 31" S/U3C LG 
"JED FUNKT IONSTAST 
513 GOSUB 1580 
511 K=flSC(KEf4J 

515 IFKC133 0RKM39 THEN GOTO 513 

516 IFK=133THENGOTO520 

517 ON K-132 GOSUB600, 700. 980. 1000.800.2 
100 

518 GOTO 500 

520 CLOSFI 

522 PRINT TCLRJtCN] 1 : PRJNTZ1: PP1NTZZ*: PR 
INTXZi 

523 PRINT T 2CHH 2C01C REU3C 1 39PC )t S/fl Jt S/ 
F3eSxSKSyL3tSAJ][S/TJ[SyN3[S/I][S^3[Sx 
G3 

521 PRINI rPCNjr2CH][S/r]RYK CREU3RETURN 
r OFF 3 HUIS DU FORTRVDER" 

525 PRtNT'T CN1I 2CH1S3 KOMplER DU T ILBAGE 
I BflSFN 

526 PRINT T CNJl 2CH3UDEN TAB F»F Qfllfit 
530 PRINT r3CN3OPFW!.e,15:GOTO500l3CO3 ' 
510 END 

600 REU x*xxINDSKRIUNING 
602 N=Nf l 

601 PRINT rCLRJECN3CREUJt2SPC3CS/I3CS/N) 
rS/U3[S/S]CS^-K3CS/R)CS/T3CSAJ3CS/MCS/l J 
rS/N3CS/G3 CCN.1 
606 GOSUB I860 
608 IFKEV*= J THENG0T0611 
610 PRINT fHOI13C3CN3- 
612 GOTO606 
B11 PRINTCRi; f S/H3AR DU FLERE REGIS'TRER 
INGER?' 

616 GOSUB 1500 

618 IF KEY* - J THEN PRINT 1CLR3 :GOTO 60 
0 

620 RETURN 

700 REfl xmxS^GNING 

702 PRINT f CLRJt 2CN3C REU3CCH3C S/S)LCy-3C 
S/G3C S/N3C S/l 3C S/N3C S^3" 
704 PRINT rCNI CSXJ3U KftN S^EEi ' i 
706 GOSUB 1908 
708 GOSUB 1508 
710 IFKEY4= * THEN73Q 
712 K=ftSC(KEY* )-64 
714 JFK<1" OR K >NF THEN70H 
716 PRINT f CLR3 

718 PROUTt =FD* TK 3 *■ HT FINOE 
720 POKE 631.31-.P0KE 138. 1 
722 GOSUB 1608 
724 FORI=0rON 
726 IFfl* OLEF T *CREC4CR«f I ) , K J , LENCft* 3 3TH 
EN 736 

728 PRINT' T CLR3[REU]CSyR3EG.*"T 
738 GOSUB 1700 

732 PRINT TCN1CS/F30RTSCT UEP TRYK PJ EN 

TAST. 
731 GOSUB 1500 
736 NEXT 1 
738 RETURN 
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800 PRINT TCLR3CCN3' Z*=PRINTZZ4: PRINTXZ* 
602 PRINT r 2CH3C 2COKREU3C 12SPC3C S/03C S/ 

SPC J[ S/Pli S/~ H S/SPCK S/01E S/I IE S/S3C S/K 
V 

804 PRINT T4CNJI 2SPCJC S/1 1NQSC T DflTl9-DJS 
K I DISK QREU '0' ' 

806 PRINT T2SPC]f S/TJRYK EN TflST . N3R DU 
ER KLAR . " 

808 PRINT r2SPf: It S/T3RYK 'ft 1 HUIS DU FOR 
TRYDER. 

810 GOSUB 1500 
812 IF KEY* =' 0 then GOTO B52 

811 PRINT-1 . S0: +FIi 
816 INPUr«i,Ai,B* 

818 IFfli^ 00 nRfl*--01 THENGOT0824 
820 PRINT T REU3D ISK FEJLTOFF3 B* 
822 STOP 

824 OPEN 2,8,10. 0: tfltt.S.W 
826 INPUTBl ,fl*,B* 
828 IFfH = 80 THENGOTO B34 
838 PRINT TRCUltMSK FEJL'- T OFF3 B* 
832 STOP 
834 FORJ-0TON 
836 FOR K=1T0NF 

838 PR J NT «2 , CHRt I 34 3REC t ( Rx(J ),K 3CR* l 
840 NEXTK 
842 NEXT J 
844 FORJ=IT0NF 
846 PRINT*2. EOD CR*I 
848 NEXT J 
850 CLOSE? 
852 RETURN 

900 PRINT f fXRH CN3 " ZS: PRINTZZ*: PRINTXZ* 
902 PRINT T 2CH3C 2COKREU3T 9SPCJT Sri 3t S/N 
3t S/D3C S/H_3f S/+ 3 C S/S3C S/TOt $/l ]t S/fOC S/*G 
KS/S][S/Pl(S/f?)f S/l3][S/C1CS/^3[ S/OJCSAJ 
KS/RJLS/EJ 

904 PRINT T4CN3f 2CH3CS^S3CT OflTfl-DISK I 
DISK DRE*J '0* . ' 

906 PRJNT T 2SPC3 [ S/F 30RTST T UED TRYK P3 
FN TflST." 
908 PRINT 
RTRYDF.R." 
910 GOSUB 1580 
912 IFKEV5; F» rHENG0T09l4 
914 OPEN2,8.t0, 0: *F|it".S,R' 
916 JNPUTal .Ftt.B* 
9t8 IFAi-'00 THENGDT0924 
920 PRINT TREU1DISK FEJL:C0FF3 Bi 
922 STOP 

924 PRINT T2CN)C2CH)CSA3CS/0][S/fl3CS/t31 

rSx-nCS/NUS/Gl : 

92G N^N+1 

928 FORJ ~3 TONF 

930 !NPUTn2,RFCVCN. J 1 

932 NEXT J 

934 PRINT . J 

936 IF REC*f N . 1 1= EOD " THEN GOTO 940 
938 GOTO 926 
940 N=N~t 
942 CLQSE2 . 
944 RETURN 

1000 PRINT"! CLR3TCN3 :PRINTZ*:PRINTZZ$: P 
RINTXZ4 

1001 IFN=-1 THENRETURN 

1082 PRINT r 2CHJC 2CQ 31! R£UU 3SPC 31 S/D3C S/ 
AJ[S/T3T S/tf] -rS/n3iS/rt3CS/NKS/IKS/-P3CS 
AIM S/^-3CS/flJlS/T3CS/I H S/03C S/Nl 

1003 PRINT MENU 5CH3E REUJF1 [ OFFJ : T S/t_3 
1ST ftLTCCN] ;PRINT [5CH][REU3F3tQFF3: fS 
✓E3NKELTUIST CN3 

1004 PRINT f5CH3tREU3F5fOFF3; TS/^IORTCR 
ECCNJ :PRINrTf»Qf20 1 r BCOIT REU 1F?[ OFF 3 : I 

S/-]NORtLCN) ? PRINT TAB C 20 3 T REV3F6T QFF3 ; 
f S/S3LETTEC CN3" 

1005 PRINTTflBC20VCREU3F8tOFF3; TS/H30UE 
DHENU 




f 2SPC3C S/T3RYK 'IV, HUIS DU FO 



RINTXZ 



1006 PRINT T7CN] Z4:PRINTZZ*: PRO 
100? PRINT r2CHJ[2C03CREUH7SPC)tS/U3rLG 
UED FUNKT lONSTflST" 
1008 GOSUB 1509 
1010 n=0SC(KEY4 ) 
1012 TFn-t40THENGOTOI 422 
1014 IFn<>134THENG0T0U88 

1016 PRINT T CLR J [ CN 3 ZS: PRINTZZ* : PR I 

1017 PRINT t2CHl[2CO]tREU3C8SPC3rS/E3tS/ 
NJCS/KJCS^EU S/L]tS/'T3rSAJ][S/I)CS/S3CS/ 
SPC3tSx1_3tS/I JlS/S3fS/T3CS/N3ES>-nCS/N3[ 
S/Gl 

1018 PRINT T 4CNJ [ 2SPC 3f. S/Q3ER ER IN+ 1 ; " 
REGISTRERINGER- 

1020 INPUT T2SPC3TS/S3TART NED REG . )K 

1022 I FK > =0ANDK < =N TMENGO TO 1828 

1024 PRINT rCN3(REU3C2SPCHS/'F30RKEFT RE 

G.NP. rS/15]ENWSr 

1026 GOTO 1020 

1028 1=RXCK3 

1030 PRINT rCLR3rCN3CREUKl OFF3ESy^JORLC 
NS f REU3 *f OFF IT S/BlflGL[ NS T REU3C S/O IT OFF 
IflSTflRT TREU II SyniTOFFDENU 
1032 PRINT 

1034 PRINT TREUKS^3EG.NUrttlER: K 
1036 GOSUB 1708 
1038 GOSUB 1500 
1048 IFKEYi=" * THENK=K>1 
1042 IFKEY4 - - THENK=K-l 
1044 IFKEY*= 0 THEN GOTO 1016 
1046 IF KEY* = 1 THEN GOTO 1000 
1048 GO TO 1022 
1100 PRINT T CLR J 1 
1102 IFT10133 THENGOTO 1200 
1 104 FORJ=0TON 
1106 PRINT TREU1 J "C OFF3 a 
1108 GETfl* 

I t IB IFfli= THENGOTOl 116 
1112 GETfl* 

1114 1FA» = ""THENGQT0U12 
1116 FORK=I TONF 
1118 PRINT RECiCRxCJ 3.K33 1 
1120 NEXT K 
1122 PRINT 
I 124 NEXT 
1126 GOSUB 1500 
1128 GOTO 1090 
1200 REfl *x**SLETTE EN POST 
1202 IF11O139THENGOTO1300 
1204 PROriPTt: tCLR3C2CN3i:REU3 tS/^3EG.NR 
. TIL SLETNING 
1206 GOSUB 1600 

1208 !FUflL(ft*)<0 ORUflLTflt 5>NTHENG0TD1324 
1218 PRINT TREU3 f S^S3C S/L31 S/E 3C 2S/T3C S 
^El C OFF 3 : " 
1212 I=UflLCfl*-l 
1214 GOSUB 1700 

1216 PRINT TS/B1EKRC FT: TRVK CREU3JC OFF J 
ELLER f REU3NT OFF3 " 

1218 GOSUB 1500 
1228 TFKE V* = N T| ifNGO TO1000 
1222 IFKEYiO'j THENG0T01216 
1224 FORJ - 1 TONF 

1226 RECtfRvU I j. I 1 -RFCVCRx (N ) .J ) 
1228 NEXT J 
1230 N=N-l 
1232 GOTO1000 

130R REI1 'KHJtCNDRE EN POST 
1302 IF MO 136 THFNGOrOl400 
1304 PROMPT*; ( CLR3C 2CN3T REUH CHJC S/+ JND 
RE REG. NUriMER* 
1308 GOSUB 1600 

1308 !FUm-fm )<0ORUALtfl«)>NTHENGOTOl480 
1310 I^UflLCflt l 

1312 PRINT rCLR3CZCNJLRE«JU2SPCjrS/R3EG. 
«IDFF3 :l 
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I 311 GOSU0 
1316 PRINT 

IGT? 

1318 PRINT 
1320 GOSUB 



1700 

I CN II 2CH1C S/E 1R NUHflERET 



RIGT 



THENGOTO 1502 



r2CHjrRfK J/ti - *«• TIL P1ENU 
1500 

1322 IF KEY*- n ruCMGOrOLBBO 
1 321 IFKEYS" i ri-ifNCiUTQ 1330 
1326 IF KEYt = H THENGOT013B1 
1 378 GOTO |3?0 

I 330 FOR K =1 I08P: HRIHK ■ <R% ( 20 1l :NEXt K 

1332 PRINT r HOHH 2CN3C REU] t S^RH S/EH 2S 
✓T3ESxE3rS/LJES/S3tS/E3£ 

1331 FLAG=1 
1336 B-N 

1333 N=I 

1310 GOSUB 1800 
1317 FLAG-0 

1311 N=B 

1316 GOTO 1000 

1100 REM *«*SORTERING 

1102 IFMO135THCNGOTO1000 

1104 PRINT T ClRH 2CN3E REU It 2SPC JC S/*S]( S/ 
OUSvflliS^nrsVTItSxRjr 5/EHSySPCJlSyPK 

von s^-sit s/Tir sxnc S/R3 

1106 PRINT r 2CN3E 2SPC It $/S 30RTER Pli '5 

1108 GOSUB 1 300 

I1IB GOSUB 1500 

1112 IF KEY*= "«"THEHM22 

111* K=ASC(KEY* 1 61 

1116 IFK<10RK>NFTHEN1118 

1118 PRINT TCH1UENT . - . 

1120 GOSUB 2000 

1122 RETURN 

1500 REM x*x 
1502 GET KEY* 

1501 IF KEYt= ' 
1506 RETURN 

1600 REn "* 

1602 PRINTPROriPT*; 

1601 Ai= 

1606 inputai 

1606 IFfliO THENG0T01614 

1610 PRINT t C01 : 
1612 GOTO 1600 

1611 RETURN 

1 700 REtf ** 

1 702 FOR J - 1 TONF 

1701 PRINTREC*(Rx(I ).J ) 
1706 NEXT J 

1708 RETURN 
1880 REtl «* 
1802 FORK =1 TONF 
1801 fll = " 

1806 PRINTLEFT*(F0t(KJ+BL4.L*2i; 

1800 IF FLAG-UHXNPRINTTflBlLr3}RECitR*(N 

l ,K 3CR*; TAB(L 3; CC03 ■'; 

1810 P0KE631 ,31;P0KE13B.I 
1812 INPUTAi 

1811 lFAt = "THENA*- '* 
1816 REC*<R:<tN3.K3-A* 
I8I8 NEXTK 

1820 PRINT I2CNarCIUES/ElR INF0R11A T 1 ONEN 
KORREKT? : 

1822 GOSUB 1500 

1821 IF KEfi= J THEN1831 
I826 IF KE^O N" THEN1822 

1 828 FORI = I TO30 : PR I W t C HRt f 20 1 ! ' NEXT 

1830 PRINT 7 HOfl It 2CN3 ' 
1832 GOTO 1802 

1831 RETURN 

1900 REM *** 

1302 FOR I = 1 TO NF 

1901 PRINTTABE 16 1 '[ REUO CMRit I +64 3 f OFF] 
FD1CI 3 

1906 NEXT I 

1308 IF F LAG - 1 THENGQTO 1911 
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1910 PR INT [ CN J TS/OIU KAN OGSl Gl TILBA 
GE TIL flENUENCEREUmOFF] 1 
13J2 PRINT TS/U1TLG UED BOGSTAU: ! 
1311 RETURN 

2000 REPl f«»*SORTF.RTHG 
200? M-0: N -N+ 1 : X =0: B =N- V : FORJ =0TQB: S* 
^JtNEXTJ 

2001 FORJ =0ION*2-3STEP2 
2006 B~D f l = ll a 5*f J ): 12=S«C J+l 3 
2808 GOSUB 2030 

2010 S^tBl-pNCXI J 
2012 X-X-l:C-5^f3l: I FC <8GOTO2031 

2011 PRINrREC$rCKJ.;RKtri ]-C:n-|TM 
2016 SxtC)>X 

20I8 C*-*02: t=C-iK2;C=N+C«: IFOBGOTOZBl 

2020 Tl-Sxt J 1. t2=S*C 3*1 3 
2022 IFI1 carilfNl -I2;GOTO2028 

2021 IF I2<0THENl GOTO2028 
2026 GOSUB 2030 

2028 Sv.CC ) ^I:GOrO20I8 

2030 UXU IFRECM t2.K)<RECtUl.K3THENI = l 

2- 

2B32 RETURN 
2034 N=N-1 
2036 RETURN 

2100 PR1NI I CLRJE CN1 ' 2* : PR INTZ2* : PRI N TXZ 
i 

2102 PRINT I 2CH3I 2C0K REU Jl 8SPC3C 5/0 H 5/ 

tms/nrs/pirsAnr swi/f s/sus/Kars/'+ns 

✓R3E S/rU IS/PUS,-* IT S/I IT SVNK 5'T IT S/E ]T 
S/R I 

210* T*^ 

2106 POKE 631 .31; POKE 138, 1 

2108 IN-PUT T ICNJt 2SPC3E S/SJKRIU EN TITEL 

; r* 

2110 PRINT r2SPCKS/F3ELTERNE ER: : 
2112 FLAG- 1 

2111 GOSUB 1906 
21 16 FLAG =0 

2118 INPUT ICN][25PC3[S/inUOR IiftNBE FEt-T 
ER :F 

2120 FOR1-1T0F 

2122 INPUT I2SPC3CS/F1ELI BOGSTAO im 

2121 fx i jsflscfAi i-ea 

2126 IFFf I )>NF OR Ff I 3<l THENGOT02122 

2129 PRINT tCD3 TABC28 "J: 

2130 INPUT'" KOLONNER ";UfI 3 
2 1 32 NEXT I 
21 34 INPUT 
N)'iH* 

2136 INPUT T 2SPC3TSXS3TART MED REG . « 0t 
3CU3 ;B 

2138 PRINT r2SPCU5/SJ»0P MEO REG. 



f 2SPC3T S/P1R1NTE HOUEOER CJ/ 



'IN 



2110 INPUT T^FUI -;E 
2M2 P : E>NTHENE-N 

2144 INPUT I2SPC)tREUlES/SUOFF3KLRn ELL 
ER [REU3TS/P1I OFF 3R INTER ' :DU«. 
2116 00^1 

2118 IFOU*-"S THENDU=3 

2150 PRIMT TCN3T 2SpC3t S/^JORBERED PR I NT E 
REN. 

2152 PRINT f 2SPC 31 S/F 30RTST T \f& TRYK P3 
EN TAST. ' 

2154 PRINT T 2SPC3ES/'T3RYK ' A ' UED FORTRY 
DELSE" 

2156 GOSUB 1500 

2159 IF KEY*: A THENGOTO2202 

2160 OPEN 3.DU 

2162 FRINT-3.LLF T*(BL* .T8B-LENC T* 3 1/2 3T* 
2164 PRINTS 

2166 IFHiO J THEN GOTO 2178 

2169 F0R1=1T0F 

2170 PRINT«3-LEFT*CFD*CFCI 31+BLi.WCl 3 3: 
: 

2172 NEXT I 




21 7«* 


PRINT«3 












1 68 


914 


228 


91 fi 


7 1 fi 


2176 


FOR I - 1 


TO Q0:PRINT«3, 


' NEXT I 


918 


21 


928 


141 


922 


144 


2179 


PRINT*3 










924 


242 


926 


41 


928 


230 


2188 


FORI ;BTOF 








930 


245 


932 


204 


934 


70 


2182 


FORJ^l FOF 








936 


1 28 


938 


74 


940 


47 


2184 


PR INT «3 .LtTTttRF.Ct CRx f F 1 ,F C J 1 )+BLi , 


947 


210 


944 


147 


1060 


38 


WCJJ.li *; 










1 UU L 




1 RC17 


R7 


1 DO J 


9ft 


2186 NEXTJ 










1 004 


248 


1005 


1 7R 

ISO 


1 00R 


38 


2188 


PRINT«3 










1 007 


1 t 
* * 


1 00R 

1 COD 


I 1 5 
i i -j 


1010 


35 


2198 


GFTAi 










1017 

I TJ I £ 


74 


1014 


1 9ft 


1 0 16 


A3 

O J 


2192 


tFfti^ ' 


TIIEN2196 






1017 


I 36 


1018 


162 


1020 


191 


2194 


GO SUB 1508 








1022 


17 


1824 


78 


1026 


108 


2196 


NEXT I 










1028 


14 


1030 


105 


1032 


153 


2199 PRINT-3 










1034 


212 


1036 


1 17 


1038 


115 


2208 


CLOSE 3 










104 0 


131 


1042 


1 34 


1044 


21 


2282 


RETURN 










1046 


44 


1048 


1 10 


1 100 


1 12 


KONTROLSUn FOR BfiSE 


tlfiGER 






1 102 


230 


1 104 


159 


1 1 06 


74 














1 108 


6 


1110 


223 


1112 


6 


10 


54 


70 


9 


so 

JO 


i sn 

1 JO 


1114 


719 
x i j 


11 1 6 


731 


1 1 18 

1 1 lv 




51 


82 




250 


1 rJtzt 


l i a 


1170 


737 
*.j/ 


1 1 77 


1 53 
i j j 


1 1 74 




104 


166 


105 


13 


1 DO 


Jo 




\ 1 5 


1 1 7fl 

1 1 £0 


106 


1 700 

1 £W 


65 


109 


85 


1 1 0 


37 


1 1 1 

111 


1 0£ 


1 202 


205 


1204 


202 


1206 


1 16 


1 12 


21 


1 1 3 


235 


130 


206 


1 208 


45 


121 8 


204 


1212 


1 19 


131 


84 


132 


85 


133 


57 


1214 


117 


1216 


286 


1218 


1 15 


134 


199 


1 3*5 


32 


150 


83 


1220 


205 


1222 


132 


1224 


238 


155 


49 


200 


36 


202 


231 


1226 


99 


1228 


204 


1230 


42 


204 


230 


206 


96 


207 


168 


1232 


74 


1300 


244 


1302 


203 


208 


9 


210 


87 


212 


239 


1 304 


4 


1306 


1 16 


1308 


8 


214 


160 


216 


216 


218 


45 


1318 


1 18 


1312 


201 


1314 


117 


228 


158 


222 


242 


224 


169 


1316 


69 


13L8 


174 


1320 


115 


226 


18 


228 


203 


230 


33 


1322 


236 


1324 


239 


1326 


244 


232 


56 


234 


20 


236 


57 


1328 


ill 


1330 


106 


1332 


230 


238 


31 


240 


42 


24 2 


203 


1334 


253 


1336 


66 


1338 


73 


244 


210 


246 


61 


300 


38 


1348 


1 18 


1342 


252 


1344 


66 


302 


218 


304 


114 


30S 


90 


1 346 


106 


1 400 


20 


1 402 


1 98 


306 


59 


308 


296 


310 


169 


1404 


5 


1406 


224 


1408 


119 


312 


216 


314; 


132 


316 


153 


1410 


1 15 


1412 


72 


1414 

1 *T 1 T 


54 


318 


210 


320 


32 


322 


1 44 

• * * 


1416 


1 03 


1418 


225 


1 478 


1 1 1 


324 


1 72 


326 


92 


320 


234 


1 422 


1 42 


1500 


45 


1502 


70fi 

£VU 


330 


28 


337 
- - 1 • 


57 


334 


162 


1504 


198 


1506 


142 


1 600 


45 




£ £ ~ 




210 


340 


205 


1682 


218 


1 604 


91 

j i 


1606 


734 

£J*W 


34? 


50 


344 


203 


346 


210 


1688 


148 


1610 


169 


1612 


1 12 


348 


23 


350 


233 


352 


229 


1614 


142 


I 700 


3 


1702 


6 


35a 

J J ^ 


R 


35fi 

-J JU 


203 


358 


210 


1 7PM 

1 r KJt 


1 1 1 


1 

i / ciu 




1 7P.R 

1 /DO 


1 47 
He 


4 0PI 


1 £<a 




136 


404 


211 


1 800 


45 


1 802 


73 1 


1 R04 

I OCT 


9 1 

3 I 


"fit 


1 5R 
1 JO 


408 


12 


410 


203 


1906 


231 


1809 


16 


18 10 


I4R 


■1 t 7 


cc 
UU 


a i /I 

" 1 t 


29 


416 


231 


1812 


234 


1814 


18 


1816 


743 


4 1 0 
HID 


71 


** /o 


159 


422 


204 


1818 


CXJ J 


1 870 


■' . / 


1 ft77 


11 J 


** i *f 


<*t£| 




228 


580 


38 


1824 


1 1 1 


1826 


34 


1828 


748 


en t 
381 


IE/I 

1 58 




236 


503 


158 


1838 


18 


1 832 


1 16 


1834 


147 


58*1 


58 


585 


4 


506 


1 1 


1900 


45 


1982 


1 33 


1904 


181 


513 


115 


514 


33 


S 1 ^ 

31 J 




1 906 


203 


1908 


167 


1910 


1 1 5 
i i ~j 


516 


236 


517 


168 


518 


62 


1912 


80 


1314 


142 


2000 


28 


528 


289 


522 


JO 


57T 
j £ o 


71M 


2002 


1 77 


7004 


54 


7PWR 


£ £*3 


524 


240 


525 


t 34 


S?fi 
j — - j 


33 


2008 


1 14 


283 0 


12 


70 17 


1 Rl 
IDA 


J JO 


JO 


j4fe3 


1 £0 


cog 
owe) 




70 1 4 


1 1 S 


?R 3 R 

. '. i u 


77 


7ft 1 Q 

£TS i ts 


1 


602 


41 


604 


1 Stl 


Rftfi 


i i a 
lit* 




1 48 

1 T*3 


7077 


! 4R 


7074 
to* 1 


i 48 


603 


163 


610 


Jj 


D 1 <: 


3/ 


£n/iO 


i i a 
1 1** 


£<0£O 


1 '13 


£aJta 


1 oo 
1 Ji 


614 


254 


616 


i i s 


fi 1 Q 


1 RQ 
1 OO 


2832 


142 


7034 


47 


70 3fi 


I 4 7 


628 


142 


700 


i 7 I 
i * i 


'Oi 


QO 

33 


7 1 00 

£ I KJXJ 




71 07 




7 1 GhA 

£ IBM 


1 1 CI 


784 


241 


706 


1 I 9 


3 QQ 
/DQ 


11? 


71 06 


1 R0 
1 DO 


7 1 0ft 


i net 


7 1 1 ft 


JO 


718 


1 


712 


54 


'11 


1 ow 


7117 


751 


til" 


1 1 ^ 
113 


7 t 1 R 
Alia 


7S 0 


716 


112 


718 


219 


77C* 


7 1 ? 


71 lfl 


1 9fi 


71 70 


1 51 
i—ii 


71 77 


1 38 


722 


116 


724 


158 








IS 
Jj 


> I *7R 
C I /CO 


3 1 


i 1 : ■ 


c 1 J 


729 


122 


?3Q 


U7 


737 


JO 


7 1 *30 


1 60 


7137 


70 3 


71 14 
£\ 1 J1 


1 9S 


734 


115 


736 


235 


"I in 


1 A t 

142 


7 1 1R 
£ 1 JO 


J* 


£l -3D 


44 




3o 


808 


83 


802 


7 


804 


743 


71 (17 


1 Of 


7 1 " 


1 DO 


7 t <1R 




806 


39 


80S 


184 


810 


115 




1 ft4 






? 1 S7 




812 


254 


814 


83 


816 


216 


71 S4 


ft 


71 5R 


1 15 
11-1 


7 1 5P 
c l jo 


799 
££~i 


818 


128 


820 


83 


822 


144 


7 1 R0 


1 ft4 

1 D 1 


7 t fi7 


jj 


7f r»4 


7ftT 


824 


9 


826 


216 


828 


53 


7156 


43 


£ 1 JO 


1 5 1 
i j i 


7 ! 70 

11 / o 




838 


141 


832 


144 


834 


159 


7 1 "77 




7 1 "74 




7 1 7fi 

£ 1 y*0 


1 1 
1 1 


839 


7 


838 


65 


840 


205 


2178 


203 


2180 


167 


2182 


152 


84 2 


284 


844 


230 


846 


6 


2194 


209 


2186 


284 


2188 


203 


848 


204 


850 


218 


852 


142 


2198 


6 


2192 


127 


2194 


115 


908 


83 


902 


184 


984 


64 


2196 


203 


2198 


203 


2200 


21 1 


90S 


77 


908 


228 


910 


115 


2202 


142 











COMMODORE CORNER 



Aw TOR ENGEBAKKEN 



Commodore Corner slar til igjen. 
Denne gangen skal vi se /Hi pa 
multiptikasjon, f/oatin-point repre- 
sentasjon, og ikke minst en enkel 
mate S /age en AUTO-RUN. Og for 
ikke a forgfomme manedens tape- 
figste tips, som denne gang ma sies 
S vrnre litt av en perlel 

Commodore interesserte som 
har spersmSl eJler tips a bidra med, 
kan skrive til Tor Eng&bakken, 
Damhauggt 30, 1 750 Halden, 
Norge. 



S3 over lil dagens ernner; 

MULTIPLIKASJON 
l MASKINKQDE 

Vi har fan et brev om multiplikasjon i 
maskinkode og om floating point 
represeniasjon. 

Takk for et kjempefint blad Jeg 
har noen sfwrsma't som alle g/eld&r 
maskinkode. 

1h Hva brakes adressene $D9-$F2 
til, og hvordan tolkes irtnhoJdet i dis- 
ss? 

2l Hvordan multiplisere t maskin- 
kode? 

3 J. Hvordan blir el reelt lall represen- 
ted i minnet? 

4i, Hvordan fer man lak i wliet n$r 
man skr/ver SYS addr.tall. 

Hi/sen 

Tom Reidar Henriksen 
8850 Hersyholmen 

SVAR: 

1). SD9-SF2 er vanabler som brukes 
av operativsysiemet n3r det skal hor- 
de orden p3 markoren osv, SkjermGn 
pa CBM-64 ligger jo direkte i RAM. 
og SD9-SF2 er ikke annet en en ta- 
bell med HIGH-BYTES Til den fysiske 
addressen til hver skjermlinje. 
21. PS samme rnSten som nSr du 
mullipliserer vanlige desimaltall (or 
hSndl 

Litt forklaring er vel p3 sin plass, 
og vi skal behandle en rutine som m2 
sies 3 vasre standard. 

La oss ta et enkelt regnestykke og 
se hva som skjer n3r vi foretar en 
multiplikasjon i detdesimale tallsys- 
tsmet. 



12' 101 = 



00 
12 



1212 



Regnesiykket skulle vasre enkelt nok, 
og vi har her valgt multiplikatoren 
101 for 3 kunne anskueligjere pro- 
blemstillingen bedre 

Det ferste vi gjer er d legge sam- 
men multiplikator sa mange ganger 
som det minsie siffer i multiplikan- 
den sier oss at vi skal giare Resulta- 
tet skriver vi under brekstreken. Vi er 
n3 klare til a g3 Ids p3 neste siffer i 
multiplikator. 12*0 = 0 og vi skriver 
ned dette under det forste sifferet, 
men ferst flyiter vi resultatet en po- 
sisjon mot vensue. Siste sitter gar 
ogsS enkelt. 12" 1 er fremdeles lik 
12, og resultatet sknves ned etter yt- 
terligere et SHIFT mot venstre. Der- 
etter legger vi sammen kolonnene, 
og kommer s3 frem til resultatet, 

Hvorfor vi valgte 101 sam rnultj- 
plikator? 

I maskinkode er a He tall 0 eller 1, 
og vi skal bruke samme metode nSr 
vi multtpliserer to en-BYTES tall. (Et 
tall som f3r plass i en BYTE er rnel- 
lom 0 oog 256. )La oss multiplisere 
tallene 27 og 7. 

Skrevet i binaert blir regnesiykket 
van falgende: 

00011011 ' 00000111 = 



00011011 
00011011 
0001101 1 

oooooopo 

00000000 
00000000 
00000000 

oooooooo 



10111 101 



Det var skoletimen (or denne gang, 
og vi skal na lage et program som 
gjar dene. 

Siden det er smfitt med regiStre i 
en 6502 forutsetter vi at multiplikand 
og multiplikator legges i minnet lor 
rutinen benyttes Vi trenger ogsa to 



BYTE til a lagre resultatet. (Resulta- 
tet av en 8-BITs mullipiifcasjon kan 
toppen bli 255'255 = 65535. Dette 
fSr vi akkurat plass til i to BYTE.) I til- 
legg trenger vi en adresse til a ta imot 
multiplikator nar denne flyttes moi 
venstre. Vi kaMer denne TEMP 
;8-BITS MULTIPLIKASJON 

START LDA HQ 

STA RESULTAT 
STA RESULTAT +1 
STA TEMP 
LDY m 

MULT LSR MULTOR 
BCC IKK6ADD 
LDA RESULTAT 
CLC 

ADC MULKAND 
STA RESULTAT 
LDA RESULTAT + 1 
ADC TEMP 
STA RESULTAT + 1 

IKKEADD ASL MULKAND 
ROL TEMP 
DEY 

BNE MULT 
RTS 



RESULTAT 
TEMP 
MULTOR 
MULKAND 



WORD 0 

.BYTE 0 

-BYTE 7 

BYTE 27 



Vi mittaliserer forst RESULTAT og 
TEMP til 0. Deretter setter vi Y-regi- 
steret til 8. (Vi skal sjekke alle 8 BIT ■ 
multiplikator.} Ved a shifte multi- 
plikator til heyre vil vi f3 ut den minst 
sigmfikante BIT'en i CARRY-flagget. 
H vis denne er 1 skal vi foreta en ad 
disjon. Hvis ikke hopper vi til IKKE- 
ADD som ferst shifter multiplikanden 
mot venstre. N3 kan det jo skje at BIT 
7 i multiplikanden er satt, og for ikke 
a miste denne ruller vi den inn i 
TEMP. (TEMP fungerer som HIGH- 
BYTE for multiplikanden ettersom 
denne shiftes rnot venstre.) Nar det- 
te er gjort 8 ganger er regnestykket 
ferdigl 

3.1 Et reel! tall lagres i minnet som en 
floating-point variabel. Floating point 
er et apesiellt format som g3r ut pa" a 
lagre tallel i en norma lisen form 

Hvis vi ser pS det desimale tallet 
234 vil dette kunne lagres som 
0.234 * 10 t 3. 



24 



0.234 kailes MANTISSA og 3 er 
EKSPONENT'en, Det samme forma- 
tet brukes i det binaere tall-systemet. 
10100 kan lagres med MANTISSA 
0.10100 og EKSPONENT er 5. {Si- 
den vi opererer i det binasre tallsys- 
tem vil grunntallet ikke vaare 10, men 
2. Tallet kan altsS sknves 101 ' 2* 

Sri 

Denne mfiten a lagre tall pa" tillaier 
oss a lagre forholdsvis store tall uten 
3 bruke tilsvarende stor pfass. tVed 
store tall vil vi nktignok miste noe av 
presisjonen, da de minst stgnifikante 
siffrene vil bll utelatt. Tallets presi- 
sjon vil vasre avhengig av hvor man- 
ge BITs vi lar MANTISSA strekke seg 
over . } 

Hos Commodore opptar en slik 
variabel 7 BYTE. De to forste g3r 
med til variabelens navn. og vi har 
sSfedes 5 BYTE til S lagre informa- 
sjon. Den farste av disse inneholder 
EKSPONENTen, og BIT 7 er for- 
tegnet. (Hvis dette er salt bevager 
desimalpunktet (heter det binaar- 
punkiet?) seg utover moi hoyre og 
omvendl mot venslreJ 



firmer det. N3r komma er funnet skal 
vi hente opp parameteret. SAD8A 
evaluerer uttrykkat, og legger resul- 
tatet i floating point accumulator. 
Uttrykket kan her vasre sammensatt 
av flere tall og variabler Siden flo- 
atingpoint tall er noe herk 3 jobbe 
med, (og lallene vi vil ha ut ofte er en 
to-BYTE integerl kaller vi s& opp 
SB7F7 som gjar om tallet i floating- 
point accumulator til en integer med 
HIGH-BYTE I akkumulator og 
LOW-BYTE i Y- registeret. 

De fsrste Instruksjonene blir sale- 
des: 

JSR $AEFD 
JSR SAD8A 
JSR SB7F7 

Det var vel nok matte pa" en gang? 

Det er kanskje pS tide 5 slappe av 
litt, og se litt pa hvordan vi lager en 
AUTO-RUN pS en enkel mate? 



Rppreseninsion av to tall > •Hoennfl poini--tormfli 



10101 1000 



mum 



MANTISSA 



9 



Foricgn Fffliegn 



-BintDrpu'ikli 



Pv'H mec 0 



f)vitalin va-t.9bel lotmdi 

NAVN EkiDononl 




Bitena 0-6 Inneholder verdien av 
EKSPONENTen. De fire siste BYTE's 
inneholder MANTISSA, og 7. BIT i 
fiorste BYTE er ogsa her fonegnet pa" 
taller. (Satt = negatrv.HSe fig. J 
4.) For S hente opp verdier etter en 
SYS-kommando m5 programme? vi 
SYS'er lil vsere forboredt pfl opp- 
gaven. Rutinene ligger allerede klar i 
operativsystemet, og de forste in- 
struksjonene I programme! vflrt m5 
kalle opp disse rutinene. La oss si at 
vi skriver SYS 49152, A + 32. 

Den forste rutinen vi ma" kalle opp 
starter i SAEFD Den leter etter kom- 
ma og gir feilmeldmg hvis den ikke 



EN ENKEL AUTOSTART 

Takker for en fin spa/te og er frnr 
blad! Jeg turerpS hvordan jeg kan ia- 
ge er program med 
AUTO-START. Eks.: LOAD 

PROG RAM, 8. 1 Derener gjor jeg in- 
genting, og programmet starrer av 
seg se/v. 

Her er ro tips jeg har funnel ut 
sefv. 

POKE53280.0: PQKE53281Q: 
POKE 532 70, 25: REM A R TIGE 

TEGN. 



10 FOR I = 0TO 15: PQKE53270.I: 
NEXT!: GOT010: REM JORD- 
SKJEL V 

QL Hi/sen 
Geir-Olav Lyngfjell 
Hellaveien 64. 
2013 Skjenen. 

SVAR 

Takk for morsomme tips. En AUTO- 
-RUN er ikke s& altfor vanskelig a" la- 
ge Metoden vi skal vise er antagelig 
den enkleste. 

Forst kjerer du programmet ned- 
enlor. Dette legger et lite maskin- 
kodeprogram som forSrsaker selve 
AUTO-RUN'en inn i minnet. 

5 B = 679 

10 READA:IFA-1THENPOKEB. 
A:B = B + 1; GOT0 10 
30 DATA 169, 131, 141, 2, 3, 169, 
164, 141, 3. 3, 32. 142. 166, 76, 
174, 167, -1 

Deretter LOAD'er du inn program- 
mat du vil ha AUTO-RUN pS Nar 
dene er Mart taster du inn falgende 
fra tastaturet. 

P0KE43,167:P0KE44,2 (RETURN) 
POKE770.167-POKE771, 
2:PRINTSHIFT CLR/HOME:SAVE 
PROGRAM, 8 (RETURN) 

i\ print-setningen vil SHIFT CLR/HO- 
ME se ut som et reversert hjerte.) 
Programmet vil nS bli lagret pa* dis- 
ken, og du skal ikke bry deg om at 
maskinen kanskje krasjer etter at pro- 
grammet er lagret! Sla av maskinen. 
og LOADVROGRAM'8.1 Det vij n& 
starte opp automatisk. 

Dette far vi til ved a* forandre en av 
system- vektorene. Vanligvls peker 
de til steder i minnet hvor de forskjel- 
lige rutinene ligger. I vart tilfelle har vi 
forandret BASIC-varmstart- vektoren 
i $O302-$0303. Denne peker vanlig- 
vis til $A483, mens den i v5rt tilfelle 
peker til S02A7 hvor vi nettopp har 
POKE't inn maskmkodeprogrammet 
nedenfor. 

S02A7 LDA#S83 
S02A9 STA $0302 
$02AC LDA #$A4 
$02AE STA $0303 
S02B1 JSR $A68E 
S02B4 JMP $A7AE 

De fire forste instruksjonene rydder 
opp varmstart-vektoren. Subrutinen i 
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VIC 20 - CBM64 



Til Commodore Corner 

Eg takker fersi for et linf blad, og lu- 
rer pa" etpar ting: 

1 Hvis jeg utvider Vic 20 til 64k, 
kan ieg da bruke alle programmene 
til CBM64? 

2. VH jeg ha noen fordeler eller 
ulemper ved maskinen hvis detle er 
mulig? 

Hilsen 

Tommy Stensletten 
5463 Uskedalen 

SVAR: 

For S besvare sparsmalel dilt kort ma 
vi beklageligvis si NEI. Selvom Com- 
modore skryter av at maskinene har 
samme BASIC, er ulikhetene ved sel- 
ve hardwaren s5pass store at detle 
ikke er mulig. Siden dene tydeli 
er noe mange lurer pa skal vi 
gang se litt naermere pa dafe- ma- 
skinene og se pa likheter^£ibj 
ler ved dem. 



Hvis vi tar en tilt pa" MEMORY- 
MAP, vil vi (3 et lite mnirykk av hvor- 
dan de to maskinene utnyiter hu- 
kommelsen lorskiellig. Grunnen til at 
Vic-20 ikke kan utvides til mer enn 
32K ram er at prosessoren ikke kan 
aksessere mer enn 64K hukommel- 
se. Heller ikke CBM64s 
6510-prosessor kan aksessere mer 
enn 64K sarntidig. Likevel er denne 
maskinen utstyrt med 64K RAM + 
de forskjellige RQM-enhetene. Som 
tegningen viser har vt noen sleder 
bflde ROM og RAM i samme adres- 
seomrade. For a f3 tilgang til de for- 
skjellige delene av hukommelsen 
bruker den en metode som kalles 
BANKING. Dette vil Si at den veksel- 
vis kobler inn/ut deler av hukommel- 
sen. Ved a koble ut BASIC-interpre- 
Jeren kan vi f.eks. fa" adgang til RAM- 
^oamelsen i SAOOO-SBFFF. ( 
HuSfc a'i dette ma" gjores maskin- 
kode NSr BASIC- er ute har du ikke 
rigei de vanlige kommunikasions- 
utighelcno med maskinervK^ 



HUKOMMELS 

Del forste sorfa star oss erlteQenor*' 
me forskjellen i r^kommelse. Vitfeji 
med sine 5K rarn blirSq'4itep mus riar 
den stilles opp mot CB^^t^eiefan- 
tiske 64k N3 kan jo Vic20 eks{)eiiiter 
res, men et vanlig system vil hkevei. 
ikke kunne besia av mer enn 32k 
ram. 



GRAF1KK 

Den v|fnigste Co.rskjei'en t 
skierm- matfise 1 ■ ; ^kspernjeM 

eienneiadresse 51E00- 
1FF9 ( 7680-91 351. Dun- 
samrnenlagt video-rn&lll^ypa 5j£ 
byte? Siden Vic'en har en 2ty2? 
karakterers Skjerm, passer 



bra. I forbindelse rned skjermen har 
vi ogsa et omrSde av tilsvarende 
sterrelse som inneholder fargen pa 
karakterene. Dette ligger i 
S9600-97F9. (38400-38905). Som 
vi ser av tegningen starter skjerm- 
minnet retl euer BASIC-hukommel- 
sen Siden BASIC- program har besi 
av 3 bli lagret sekvensielt vil dette 
medfort et problem nflr vi utvider 
med mere RAM. Detle er last ved at 
skjermen tlytter seg n3r vt har mer 
enn 3k ekstra hukommetse. Skjer- 
men siarter na i $1000 14096) og 
fargeminnet har skiflet bosted til 
S9400. 1378881. (Start av BASIC 
flyttes ogsa" fra SI 000 til SI 200 J 

PS en CBM64 ligger selvfelgelig 
skjermen og fargeminnet pfl et helt 
annel sled. Siden CBM64 i lillegg har 
40 karakterer i bredden er fialgelig 
matrisen dobbelt s3 stor. 
(40*25=1000 bytes.) Den ligger i 
$400-$07E7. (1024-2023). Del til- 
svarende fargeminnet befinner seg 
for anledningen i SD800- DBF7. 
55296-562951. 

runn av at de fleste spill leg- 
prene rett pa skjermen isie- 
-Te dem vil del vaere en 
temrnelig moysommelig affa?re a tor- 
* done i et program, og allerede 
r vt ved den forste hmdrmgen 
f vi vd Overfpire programmer rnel- 
iyiom y^jwCBM64. (Dei skal vise 
jo S&ttey se^^/^^Koppen av et isfjetl!) 
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$A6dE setter programtelleren til star! 
av BASIC, og hoppet til $A7AE er el 
hopp inn i oversetter-loopen. 

For a fa" savei detle rn5 vi farsi for- 
andre start av BASIC- pekerene i 43 
og 44 til a peke til 502A7 slik at vi t5r 
med oss maskinkodemtinen, og til 
slutt POKE'r vi varmstart-vektoren til 
3 peke til samme adresse. Del er her 
viktig a huske pa at POKE'ene til vek- 
toren og selve lagringen av program- 
me*, ma skje pa samme linje. 

N3r programmet na blir lagret vil 
vi lagra alt fra $02A7 til stutten av 
programmet. Dette betyr at ogsa 
skjermen vil bli lagret sammen med 
programmet. (Den hgger fra $0400 
til S07F7.) Av rent estetiske grunner 
er vi ikke interessert i a ha med oss 
del som eventuellt er skrevet her, og 
blanker skjermen far vi SAVE'er Noe 
sappel vil vi imidlerlid fa med oss. 
Far noe blir lagret skriver jo maskinen 



ut en beskjed tfH^tte pa skjermen. Pg$Mm4M POKE63081.44: 
SAVING PROGNAV'Nv^er vi henter gjar-fli denne rutinen hoppes over, 
inn igjen et program meTN36nne ty- /V^Bette programmet kan selvfolge- 
pen AUTO-RUN vil cterfor deTO4jiri- £gffg skrives i BASIC, men kopienngen 
ne dukke opp igjen pa skjermen, HvlsU/til RAM tar uhorvelig lang tid, s3 det- 
te lille maskmkodeprogrammet gjar 
lobben raskere 



det irriterer oss mer enn vi er istand 
ttl a holde ut er det et botemiddel for 
dene ogsa. 

Det ferste vi m3 ajere er a kopiere 
BASIC og KERNAL ned i RAM 

BASIC ; 40960-49151. 
KERNAL ' 57344-65535. 

Deretter kobler vi ut ROM'en, slik at 
operativsystemei ligger i RAM. POKE 
1,53 gjar dette 

Siden operativsystemei na ligger i 
RAM, kan vi forandre det som vi vil. 
En disassembling viser at en bestemt 
subrutine skriver ut skjermbeskie- 
den. Nar vi undertrykker hoppene Hi 
denne rutinen vil vi slippe a fa utskrif- 
tgn pa skjermen. 



10 A= 49152:1 = 0 

1 1 READB:IFB--1THEN 
SYS49152:END 

1 2 POKEA + LB:I = 1+1 :GOTO 1 1 

13 REM M/K-DATA 



14 DATA169, 160. 32, 23, 192. 
169, 224, 32. 23, 192, 169, 53, 
133, 1. 169. 44 

15 DATA141, 105, 246. 141. 8, 
246. 96, 133, 252, 169. 0. 133. 
251. 162. 32, 160 

16 DATAO. 177, 251, 145, 251. 
200. 208. 249, 230, 252, 202, 
208, 242. 96. -1 
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PA innsiden av systemet 

Vi har n5 sett litt pS hvilke forskjeller 
du ma vaare klar over nar du skal 
overseue programmer med gralikk 
og lyd mellorn de to maskinene. Sel- 
vom del er her de vanskeligste pro- 
blemene dukker opp. er del ogsa 
andre feller a falle i. 

Med rette sier Commodore at de 
to maskinene har lik BASIC. Men det- 
te er ikke del samme som at BASIC- 
interpreteren ligger pa" samme sted! 
Nar vi programmerer i maskinkode 
vil vi ofte fa behov for 3 kalle opp en- 
kelte rutmer i oversetteren, og pa 
VIC'en ligger denne nsyaktig $2000 
adresser lenger opp. Med andre ord 
ma vi legge til 8192 for a komme 
frem til riktig adresse pa VIC-20 nar 
vi vet hvor rutinen starter i CBM64 

Heldigvis har de to maskinene 
samme KERNAL. KERNALen er en 
hopptabell og den fungerer slik at et 
kali til en av rulinene f0rer til et nytt 
hopp til der hvor rutinen egentlig lig- 
ger. Dette gjer at program som ut- 
elukkende gjor nytte av KERNAL- 
hoppene vil kunne kjeres uforandret. 
(KERNAL-hoppene tar seg blant an- 
net av u (printing, stvring av cursor 
og filbehandling.) 

SPRITES 

En av hovedgrunneng til CBM64s 
formidable suksess er selvfolgelig de 
avanserte grafikkmulighetene SPRI- 
TES og RASTER-interrupt. De alter 
fleste spill benytter seg av disse mu- 
lighetene, og vil IKKE la seg konver- 
tere III VfC-20. 

LET'S DANCE! 

Hvis vi sfculle fa lyst til 3 ta en svin- 
gom har bade VIC-20 og CBM64 
muligheter til a lage brukbar disko- 
lyd, men desverre har heller ikke lyd- 
mulighetene noen saariig likhet med 
hverandre I VIC'en slyreS dette ved 
hjelp avfem registre i $9O0A-$90OE. 
(36874- 36878)36874-36876 pro- 
duserer musikk. 36877 lager WHITE 
NOISE, og de laveste 4 bits C0-15J i 
36878 kontrollerer volumet. 

I CBM64 er lyden kontrollert av en 




betydelig mer avansert chip, og vi 
har da ogsS flere registre a hoide styr 
pa. Disse ligger i adresse 
SD400-$D418. (54272-54296I. 
Det er betydelig lettere 3 program- 
mere lyd p3 en VIC, men selv om re- 
sultatet kan bli svsert bra vil det dess- 
verre ikke kunne komme opp mot 
64'en. 

SYSTEM VARIABLER 

Systemet benytter seg av av endel 
variabler i RAM. <$O00O-$O3FF.| 
Stort sett er variablene de samme pa 
begge maskmer, men det er selv- 
f0lgelig noen hederlige unntak s vaa- 
re oppmerksom pa. 

Zero-page kan deles opp i to 
deler.S00-$8F er variabler som be- 
nyttes av BASIC-oversetteren, og 
kan saledes brukes i et maskmkode- 
program som ikke har tenkt a" ha noe 
med BASIC a gjore. (En viktig tor- 
skjell her er at CBM64 bruker adres- 
se $00 og $01 til a holds styr pa hu- 
kommelsen. Best 3 holde seg unna 



hvis du ikke vet hva du gjerli 

S90-SFF er KERNAL-variabler, og 
blir brukt til RS232-kommunikasjon, 
I/O, skjermen osv. 

$100 $1FF er stack- omrSdet, og 
her lagrer prosessoren informasjon 
om returadresser fra subrutiner etc. 

$20O-$258 er BASIC input buffer. 

$259-$2FF er en fortsettelse av 
KERNAL-variablene pa zero-page. 

S30O-S333 er vektorer, og her 
har CBM64 fan presset inn USR-vek- 
toren i adresse $0310-0312. (I 
Vic-20 ligger denne vektoren i 
$0000- $0002.) 

$0334-$O3FC er kasettbufferen til 
Vic'en, og tilsvarende for CBiVI64 lig- 
ger i $033C-$03FB 

Som vi sar er del meste lik t, og det 
skulle ikke by pa uoverstigelige vans- 
keligheter 3 konvertere programmer 
som benytter seg av dette adresse- 
omrSdet. 

KONKLUSJON 

Konklusjonen er at BASIC-program 
som ikke benytter seg av PEEK og 
POKE lett kan konverteres, men at 
disse programmene nok er i et mind- 
retall. For BASIC og rnaskmkode- 
programmerere som tenker pa 3 byt- 
te maskin, men kvier seg for 5 matte 
laare det meste om maskinen pa nytt 
er det bare a si at forskjellen ikke er 
sa overveldende stor rross CBM's 
betydelig bedre muligheter. 



SAMMENLIGMENDE MEMORY-MAP VIC- 20/COMMODORE 64 



VIC-20 


ADRESSE 


COMMODORE 64 


System-variabler 


$0000-$03FF 


System-variabler. 


Ekspensjons-RAM 


S0400-S07FF 


Skjerm-matrise. 


Ekspensjons-RAM. 


$0800-$0FFF 


BASIC-RAM. 


Skjerm-matrise hvis 






mer enn 3K utvidelse 


$1000-$11FF 


BASIC-BAM. 


Ellers BASIC-RAM. 






BASIC-RAM. 


$1200-$1DFF 


BASIC-RAM. 


Skjerm pa van- 






lig VIC-20 


$1E00-$1FFF 


BASIC-RAM- 


Ekspensjons 






RAM/ROM. 


$2O00-$7FFF 


BASIC-RAM. 


Karaktergenerator. 


$8000-$9FFF 


Cartridge ROM/RAM. 


I/O blokk 0 


$9000-$93FF 


Cartridge ROM/RAM. 


Fargeminnet 






ekspenden VIC-20 


$9400-$95FF 


Cartridge ROM/RAM. 


Fargeminne ueks- 






pendert VIC-20 


$9600-$97FF 


Cartridge ROM/RAM. 


Ekspensjon I/O 


S9800-$9FFF 


Cartridge ROM/RAM 


Ekspensjon RAM/ROM $AO00-$BFFF 


BASIC-oversetter. 


BASIC-oversetter 


$COO0-$CFFF 


RAM. 


BASIC-oversetter 


$DOO0-$DFFF 


Karaktergenerator 






+ I/O * RAM. 


KERNAL 


$EO00-$FFFF 


KERNAL. 
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Basic-Pointere 

Af Bjame V- Jensen 



Hvis du ser pa farste side af memory- 
map'en i brugervejledningen til Com- 
modore-64, vil du ud for adresserne 
43-56 (decimal) finde nogle pointere, 
der under Basickarsel benyttes af 
compuleren til at holde styr pa, hvor 
programmet starter, slutter og hvor de 
forskellige variabler gemmes. Disse 
pointere ligger samme sted i Vic-20, og 
fungerer pa samme made som i 64- 
eren, men de indeholder nogle andre 
tal, da pladsforholdene er anderledes. 

Basic-pointerne peger pa forskelli- 
ge steder i computerens hukornmelse. 
Hver pointer bestar af to celler, der 
mdehoider den hexa-decimale adres- 
se. der peges pa. Hvis du f.eks. vil un- 
derage start-of-basic-pointeren, som 
ligger pa adresserne 43 og 44 (deci- 
mal), kan du skrive: PRINT PEEK 
(43> + 256"PEEK(44). Derved frem- 
kommer den decimate adresse der 
peges pa (normal! 2049). Del vil sige, 
ai del Basic -program der indtasles el- 
ter loades ind. vil blive gemt i omradet 
fra adresse 2049 og fremefter. 

Hvis du har et program i compule- 
ren , kan du undersege hvor det slutter , 
ved at hente start-of-variables-pointe- 
ren p& adresserne 45 og 46 ved a? 
skrive: PRINT PEEK(45) +256* PEEK 
(46). Dette tal fortseller computeren, 
hvor den under programkorsel kan 
gemme variabler, nemlig fra denne ad- 
resse og fremefter. men det fortseller 
ogsa (sammen med start-of-Basic- 
pointeren), hviiket omrade i compule- 
ren der skal gemmes. nar et program 
save's pa band eller disk. Ved at POKE 
andre tal i adresserne 43 til 46 kan du 
selv bestemme, hviiket omrade af 
computerens hukornmelse der skal 
save's. 

Licit leengere fremme i memory- 
mappen kan du se, at computerens 
Basic-hukommelse ligger fra adresse 
2048 til adresse 40959. Man kan godt 
lade sit Basic-program starte et andet 
sted end adresse 2049. Hvis du aan- 
drerS-Iallet i adresse 44 til tallet 16, vil 
programmet blive lagt fra adresse 
4097 og fremefter, men inden du gar 



dette , ska I der laagges e! nul i adressen 
umiddelbart for programmet (her 
4096). POKE 4096,0:POKE 44,16: 
NEW er alt, du behever skrive (efter- 
fulgt af return). Hvis du indtaster et 
program, eller loader et program ind i 
computeren , vil det blive lagt fra adres- 
se 4097 og fremefter, og omradet fra 
adresse 2048 til adresse 4095 kan nu 
benyttes til andre formal. Metoden kan 
f .eks. benyttes til at skaffe plads til spri- 
te-data eller et andet karakter-sEel eller 
til maskinkode-programmer. 

Man kan ogsa skaffe sig plads i den 
haje ende af Basic-hukommeisen. Det 
geres ved at POKE andre tal I adres- 
serne 55 og 56 (lirnit-of-memory-poin- 
ter). Denne pointer peger norrnalt pa 
den hejeste adresse i Basic-hukom- 
melsen + 1 (40960), og computeren 
benylter norrnalt omradet fra adresse 
40959 og nedefter til at gemme streng- 
variabler, medmindre du har reserve- 
ret pladsen med f.eks,: POKE 56,100: 
CLR <return). Herved reserveres omra- 
det Era adresse 25600 tiS 40959, og 
streng-variabler gemmes nu fra adres- 
se 25599 og nedefter. 

Der findes imidlertid et omrade ha- 
jereoppe i computerens hukornmelse. 
nemiig omradet fra adresse 49152 til 
53247. Dette omrade bereres ikke af 
compuleren, og kan derfor altid benyt- 
tes uden farst at skulle reservere 
plads. En anden mulighed er omradet 
fra adresse 704 til 766 (sprite 11). eller 
hvis du ikke bruger bandoptagen om- 
radet fra adresse 828 til 1 022. 

Start-of-variable-pointeren kan og- 
sa benyttes ti I at reservere plads. Den- 
ne pointer peger som far nasvnt pa 
slutningen af Basic-programmet. Hvis 
man inden programmet startes (eller 
som f0rste programlinie), flytter denne 
pointer fremefter f.eks. med komman- 
doen: POKE46.PEEK(46) + N:CLR (N 
er antallet af blokke der reserveres), 
kan man benytte omradet fra slutnin- 
gen at programmet og til der, hvor 
pointeren nu peger, til at gemme data 
I. Hvis programmet save's efter at den- 
ne pointer er flyttet.sa vil programmet 



og omradet med data blive gemt. Mam 
kan f.eks. gemme et maskinkode-pro- 
gram t omradet, og pa denne made fa 
det hsegtet sammen med Basic-pro- 
grammet. Men pas pa nar du retter i 
Basic-programmet. Hvis du tiltejer el- 
ler sletter programlinier. flyttes omra- 
det med data frem eller tilbage i com- 
puteren; men det ligger altid samme 
sted i forhold til startof-variable-poin- 
teren; PRINT PEEK(45)"256*PEEK 
(46). 

Nar kommandoen LOAD anvendes 
som direkte kommando (dvs. uden 
brug af llnie-nr.), sa flyttes start-of-va- 
riable-pointeren automatisk, sa den 
peger pa slutningen af det program, 
der load'es ind. Hvis kommandoen 
LOAD derimod anvendes som instruk- 
tion (dvs. som en del af et program), sa 
bliver start-of-variable-pointeren sta- 
ende. og computeren vil efter loading 
starte forfra. som om den havde (Set 
kommandoen GOTO farste programli- 
nie (variable nulstilles ikke). Hvis det 
program, der loades ind, er et Basic- 
program, som starter samme sted 
som det fcrste program, og som er 
M INDRE end dette, sa vil det nye pro- 
gram blive startet op. Man kan nu selv 
vaelge, om man vil nuistille alie varia- 
bler med kommandoen CLR , eller man 
vil lade det nye program arbejde vide- 
re med de vartabler. som det torsie 
program h>ar genereret. Hvis det nye 
program derimod er ST0RRE end det 
ferste, sa vil start-of-variable-pointe- 
ren komme til at sta midt i det nye pro- 
gram, som derved vil blive destrueret. 
Dette problem kan leses ved at flytte 
start -of-vanabte-pointeren eftertulgt af 
kommandoen CLR. Hvis del geres for- 
rest i det fsrste program, kan de for- 
skellige vartabler stadig overfares til 
det nye program. Start-ot-variable- 
pointe ren behever ikke at pege pa slut- 
ningen af det nye program; bare den 
peger pa et sted hojere oppe end pro- 
grammetsslutning. 
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Oversigt over Basic-Pointere 



2049 40960 
> > > < 




BASIC- PROGRAM VAR (ABLER ARRAYS STRENGE 


Start 
(43 i 


Basic Start-variab. Star 
L 44) (45&46) (471 


t-arr. End 
U8) (49 


arr. Stre 
*50) (51 


ng-st. Umi 
3.52) (556 


-mem 
«56) 



Sojle-program til Commodore 64 



Programme! er beregnet til atfremstil- 
le lodrerte sejier I forskeilig hajde og 
farve. Selve programmel bestar kun af 
linierne 8-13 (resten er demonstration 
og forklaring). Programmet er skrevet 
som en subrutine , der skal kaldes hver 
gang man vM have tegnet en sajle. In- 
den man kalder subrutinen, skal man 
defmere. hvor pa sksermen man vil ha- 
ve sejlen tegnet. Det gares ved hj-celp 
af variablerne X og Y. X bestemmer 
vandret placering (0 = venstre side - 
39 = hajre side). Y bestemmer lodret 



placering (0 = nederst-24 = averst). 
Derefter skal hojden bestemmes med 
variablenH(0 = ingenting 200 = he- 
le skeermens hojde). og til sidst sojiens 
farve rned variabfen F (0-15). 

Hvis man i sit program f .eks. skriver 
X = 8:Y= 1:H =24:F = 7:GOSUB10 
vil der biive tegnet en gul sejle 8 felter 
fra venstre kant, begyndende 1 felt Ira 
bunden og med en hejde pa 24 dots (3 
felter). Variablerne X. Y. H og F bliver 
ikke pavlrket al subrutinen (kun 
aflsest). Variablerne X, Y og H overtu- 



res til heltals-variablerne X%, Y% og 
H%, hvorved eventuelle decimaler 
fjernes. Programmet benytter des- 
uden variablerne K(0-8) til at detinere 
de karakterer, der benyttes til opbyg- 
ningen af sejlerne. 

Hvis der benyttes variabler udenfor 
de tilladte omrader, eller hvis sfljlen er 
for hsj til at vaare pa skaarmen, vil den 
ikke blive tegnet, og programme! vil 
fortsaatte som om intet var hsendt. 



0 Rtfl XXXXXXXXXXXXXXXXXXXXXXX 

1 REM x x 

2 RErl * S0JLE - PROGRAM X 

3 REM x TIL CBM-64 nF X 

4 REM x BJflRNE U JENSEN x 

5 REM x X 

6 REM xxxxxxxxxxxxxxxxxxxxxxx 

7 REM 

8 FORI = 1T08: REflOKT 1 J: NEXT: GOTO 1*1 

9 DftTfU00.1U ,121.98,249.247,227,160 

10 !FX<0OR.X>39ORY<0ORH<lOR[H+8xY3>200THE 
NRETURN 

1 1 X7- -X : V^-Y: Hx-H: K(0 3 = 1384*XX-40xY;< 

1 2 I FHX >8THENHx ~Hx -8: PQKEK ( 0 3 . 1 60: P0KEK t 
0 3+54272 ,F : K r. 0 ) -K [ 0 J-T0 : GOTO 1 2 

13 POKEKC0 1.KCHK3: POKEK (0 3+54272 r F:RETUR 
N 



14 


REM 


xxxrxxxxxxxxxxxxxxxxxxxxxxxxx 


15 


REM 


X 


X 


16 


REM 


X 


X = X-POSI HON C0-333 x 


17 


REM 


X 


Y ■ Y-POSITION CB-243 x 


IB 


REM 


X 


H = S0JLEH0JDE [0-200 3 x 


13 


REM 


X 


F = S0JLEFARUE C0-153 X 


20 


REM 


X 


KflLD DEREFTER: GOSU610 x 


21 


REM 


X 


X 


22 


REM 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


23 


REM 






24 


REM 







25 REM RESTEN ER KUN DEMONSTRATION 

26 REM 

27 POKE532a0,0:PQKE53281 ,0 i PR INT * [ CLR3" 

28 Y=0: F=5:FORX=30TO33: H=X-25 : G0SUB1 0: NE 
XT 

23 Y=0:FORX--1TO8:H=XxX:F=X:GOSU810:NEXT 

30 Y=19:FORX=0TO33:F=CXflNOl 3+8: H=CSTNCX/ 
53+1.1 3x20:GOSUB10;NEXr 

31 Y=3: FORI=0TO5:FORN=0TO2:X=3xI+N+l3:H= 
RNOCI )xl5tl0xl;F-Nx3:GO5UB10:NEXT:NEXT 

32 Y=9: F=2:FORX=2TO18STEP2:H=CX-I03t2+10 
=GOSUB10!NEXT 

33 Y=13:F=4:FORX=22TO39STEP2:H=40*1 .2+C- 
X+223;GOSUBl0:NEXT 

34 F=6: Y=0:H=200:FORX=2TO33STEP4:GOSUBI0 

sNEXT 

35 FORI = l TO60- PRINT: NEXT: PRINT "t CLR J " 

36 DIMHtl23:PRINTTnBr.8J'CYEL3300 KflST ME 
D 2 TERNINGERt 3CN3 " 

37 FORI=50TO2STEP-4:PRINT"[GRN3 "ITRBC5) 
[ GR1 ][ 335 /x] " : NEXt 

38 PR I NT " C GRN 3 [ CN J [ 6SPC 3 21 2SPC3 3C 2SPC3 4C 
2SPC35C2SPC3et2SPC37C2SPC]8t2SPC33 10 11 

12" 

39 n=RNO(0 3: Y -5: F =3: FORI = 1 TO300 

40 fl = INTCRND( 1 3X6 H 3+INTCRNDC 1 3*6+1 3 

41 HCfl 3=HCfl 3*2:HnHCfl3:X = 3xA: GOSUB10: NEXT 



2S 



Commodore 64 Data Files 



Fomnalet med denne bog er at afmysti- 
ficere brugen af de forskellige fil-st ruk- 
turer, der kan benyttes p£ CBM 64. 
Setv om der findes en del gode nogle- 
faerdigedatabasesystemer, kan ingen 
at dem give brugeren en dybtgaende 
indsigt I, hvordan et sadant system 
fungerer. Alternalivt kan man sS udvik- 
le sit eget databasesystem. Det er sa- 
iedes bogens sigle at give »alle og en- 
hver« mulighed for at udvikle og bruge 
sadanne systemer. Der er her tale om 
en egentlig Iserebog, som er fint illu- 
streret med programeksempler. 

Der slartes med en udmasrket intro- 
duktion til begreberne databaser, filer 
osv. Her er vi rkettg tale om en i nt roduk- 
tion, idet brugen af »Jargon« og mdfor- 
staet snak bevidsl er begreenset til et 
minimum. Det skal prseci-seres, at bo- 
gen forst og fremmest henvender sig 
til 64-ejere, der ogsA har en diskette- 
station, selv om mange af funktioner- 
ne ogsa: kan anvendes i torbindeise 
med en kassettebandoptager. Intro- 
duktionen til fil-teknikker er meget 
grundig, og fylder 30 sider. 

Efter denne del er der en listning af 
et postlisteprogram. Forfatteren har i 
programiistningerne valgt at lade hele 
filsystemet blive kontrolleret af en ho- 



Vi har i ettidligere nr. af RUN sammen- 
lignet forskellige tekstberiandlingssy- 
sterner. Et af dem var Easy Script. Nar 
man kober systemet medfBlger der en 
fyldig manual og eksempelsamling. 
Forfatteren til denne bog mener dog 
ikke. at dette materiale er nok. og han 
har derfor skrevet en guide til Easy 
Schpt-systemet. 

Bogen bestar af to hovedafsnit. Det 
fsrste indeholder diagrammer rned 
korte tekster. der beskriver systemets 
standardoperationer t forbindelse med 
opstart, cursorflyining, lagring, genfin- 
ding og redlgering. 

Det andet hovedafsnit drejer sig om 
den praktiske brug af Easy Script. Her 




Prentice/Halle International 1984. 
428 sider. 213,15 kr. 



vedm enu og deref ter separate subruti- 
ner for hver enkelt del af systemet. 

He refter fol ger et stort afsnit om se- 
kventielle filer, der kan benyttes pa ba- 
de band og diskette. Postlisteprogram- 
met illustrerer denne type filer, 

Og sa relative (random) f i ler behand- 
les dybtgaende. Her er det nadvendigt 



gennemgas indskrivnlng og foran- 
dring af brevformater, brug af stan- 
dardsastninger og flytning af tekstblok- 
ke. Endvidere besknves bruges af la- 
bulering og tabeller. »mail-rnerge« og 
behandling af store dokumenter. 

Bogen henvender sig ikke til den er- 
farne Easy Script-bruger. men vil med 
fordel kunne anvendes af begynderen 
som el supplement til systemets egne 
vejledninger. Den vil si kkert ogsa vaere 
af stor vaardi for dem, der overvejer at 
kabe Easy Script eller et andet tekstbe- 
handlingssystem, og som gerne vil ha- 
ve noget baggrundsviden torsi . 



med en diskettestation. Omtale af den- 
ne type filer findes kun i fa bcger. Det 
skyldes slkkert, at mange synes emnet 
er svaart. Men denne bog slar fast, at 
hvis man terst har forstaet principper- 
ne for sekventielle tiler, vil man ogsa 
forholdsvis nemt ku-nne forsta relative 
fil-strukturer. Ogsa dette afsnit er lllu- 
streret med gode og anvendelige pro- 
gramlistninger. 

All I alt udfylder denne bog et torn- 
rum i den ellers sa omfattende rnasng- 
de af lltleratur om CBM 64. Det er glas- 
deligt at se en bog om et seriost emne 
og ikke kun om spil eller overfladiske 
introduktioner. Et enkelt kritisabelt 
punkt er der dog. Programiistningerne 
er sket pa en skenskriftsprinter, hvilket 
kan give problemer med at skelne mel- 
lem f.eks. tallet 0 og bogstavet 0. Til 
trods lor denne indvending kan bogen 
anbefales til alle, der er tnteresserel i 
daJabaseteknik og udviklmg af person- 
lige fll-systemer. 




Granada 1984. 116 sider. 130,50 kr. 



Working with Easy Script 
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Simulation Techniques on the Commodore 64 



simulation techniques 
on the commodore 64 

i •Kol'ommeilofhQfneondbusinetsuae 
john Cochrane 




Sunshine Books 1984. 162 sider, 
156,25 kr. 



Denne bog horer til i den store serie f ra 
Sunshine Books omCBM 64. Forfatte- 
ren er ingeniar og en erfaren program- 
mer. Han hararbejdetmed mange sto- 
re computersimuleringer. hvilket har 
dannel baggrund for denne bog. 

Computersirnulering kan lorklares 
som en »kopienng« af en situation fra 
»det virkelige Mv«. Ved at lade forskelti- 
ge faktorers indflydelse variere kan 
man forudsige et slutresultat under de 
givne omstsendigheder. 

Bogen beslar af to dele. Den ferste 
er en generel introduktion til simule- 
ringsteknik . Den anden del er en prak- 
tisk vejledning i de forskellige former 
for simuleringer, der kan udteres pa 
64'eren. 

I den praktiske del al bogen er der 
bl.a. eksempler pa akonomi-modeller 
ved brug af spreadsheets. Som hjaelp 
hertil er der i et appendix medtaget et 
simpel l spreadsheet-program. 



I et af bogens mest spaandende af- 
snit beskrives brugen af og tekntkken 
bag »analysen af den kriti ske vej« (»Cri- 
tical Path Analysis". CPA). I dette kapi- 
tel findes et simpelt program, der kan 
udarbejde en CPA pa et eksempe* , der 
er omtalt i bogen. Det er forholdsvis 
enkelt at certdre og iorbedre dette 
program, sa. det kan blive et brugbart 
vcerktBj. Bogens sidste kapitel drejer 
sig om »forudsigelse af det ukendte«, 
eksemplificeret ved en programlist- 
ning af spillet LunabalL 

Bogen kan anbefales til den seriose 
CBM 64-bruger, Den gj ver laaseren 
mange gode ideer, der kan arbejdes vi- 
dere med. 



Her er din nye 

Disky $?§ 

Dobbelt-sidet, double density, 

til enkelt-sidet pris: 

Kr. 22,- pr. stk. inch moms. 

Disky two eye 

- vesttysk kvalitetsdiskette 

- 100% testet pa BEGGE SIDER 

- 5 ars garanti 

Ring og bestil (min. 10 stk.) eller 
indsend udfyldt svarkupon til: 



aps 

Datasektionen 

Kobbervej 8 • 2730 Herlev 
02-8421 11 




, JA TAK send mig 



stk. 



Disky two eye til kr. 22,- pr. stk. 
incl. moms og forsendelse. 
(Tillieg ved cfterkrav kr. 22,-; 

Navn 



Adresse 



Fbstnr./By 
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Justering af kassettestationen 



Jeg, tror de fleste Commodore 64 eje- 
re pa et eller andet tidspunkt har halt 
problemer med al loade el program f ra 
kasseltestationen. I mange tilfaelde 
skyldes det, at bandoptageren ikke er 
rigtig justeret. Jeg har selv engang ind- 
leveret en kasseltestation til justering, 
og det tog tre uger at fa den ordnet . Nu 
har enhver imidlertid mulighed for selv 
at justere Azimut vinklen pa sin kassel- 
testation. 



Hvad er azimut vinklen? 

Et tonehoved best&r at to magnetiske 
poler, som er placeret med et mellem- 
rum. 

Mellemrummet skal I den ideelle 
indstilling vesre lodret pa bandretntn- 
gen. Forskellen metlem mellem rum- 
met og det lodrette plan kaldes azimut 
vinklen. 

Nar en magnetisk impuls fra bandet 
passerer et perfekt indsiillet toneho- 
ved, modtages signalet helt klart af 
computeren og programme! kan loa- 
des uden problemer. Er lonehovedet 
ikke indstillet korrekt, modtages signa- 
let uklart og computeren vll have be- 
svaar med at udskille de enkelte signa- 
ler. Resultatet bliver ofte en »load er- 
ror*. Er tonehovedet meget forkert. ri- 
sikerer man. at data slel ikke optattes 
af computeren. Den tror, del er et helt 
biankt band. 

Jo hsjere indspilningstiastighed 
man benytier, |o sterre bliver disse 
problemer. Bandoptageren kan vaare 
helt i orden til den normale Commodo- 
re hastighed , som er' 300 baud (bits p r . 
sekund), men kan give problemer med 
de nye high speed loading hastighe- 
der. der ofte er op lil 3O00 baud. 



Komplet justeringssaat 

Der er nu kommet et Komplel juste- 
hngssEettil hjemmebrug pamarkedet. 
Saattet beslar af et justeringsband, en 
lille stjerneskruetraakker og en grundig 
tnstruktionsvejledning pa" engelsk og 
dansk. Det er ganske nemt at finde ud 



af , idet man ved at dreje skruetraakke- 
ren fi nder de to yderpunkter for mdlaas- 
ning. Den korrekte placering er midt 
mellem disse punkter. En stor pappil 
S33ttesp& skruetraekkeren foratkunne 
markere disse yderpunkter. Det ser 
lidt primilivt ud, men det virker. 

Tonehovedet kan kun iusteres nar 
PLAY-knappen er trykket ned. Da 
skruetraekkeren skal blive i bandopta- 
geren indtil man er helt faardig med at 
lustere, er det vigtigt, at man finder de 
lo yderpunkter, inden bandet laber ud 
og tonehovedet (med skruetraekkeren 
i) springer tllbage. 

Pa bagsiden af bandet fmdes et spil 
(BANDANA CITY), der indla&es med 



en hastighed pa 3000 baud. Man kan 
sa kontrollere, at bandoptageren vir- 
ker og far i tilgift et spil - ikke specielt 
speendende, men heller ikke dar- 
ligt. Justeringssaattet importeres af 
Munksgaard og koster kr. 195,- (vejL). 
Det er en god nyhed, som mange sik- 
kert har savnel. Synes man. at prisen 
er i overkanten, kan man )o sagtens 
vaere flere om et sadant saet. 



SLUT MED 

LOADINGPROBLEMER 




-Her er programmel alls Commodore 64 ejere far brug for-. . 
skrev den engelske fagpresse , 

Progra m me r med fast I oad op lil 3000 baud giver ofle 
problemer, idat bandoptageren norrnait arbejder med 300 
baud. 

Med AZIMUT 3000 kan du selv flnlndstille bandoplagerens 
tonehoved til at loade op lil 3000 baud - hett uden problemer. 
Leveres komplet med software, specials* ruetraekker og udfer- 
lig dansk brugsanvisning. 

EKSTRA : Arcade game -Bandana City- og leatprogram pa 
bandets bagside. 

Din Com modore lorhandler har det nul 



Narmesle toitiandlor anvises : 

MUNKSGAARD 

Nofre Segade 35 l370KebenhavnK 
mOl-127030 
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Typehjulsprinter DPS 1120 



Commodores typehjulsprinter DPS 
1 120 kan dir ekte tilstutles Commodo re 
16, 64, VIC 20 og PLUS/4. 

Der findesel bredt udvalg a( forskel- 
lige typehjul i 3 skriftbredder (10. 12og 
15 tegn pr. tomme) samt proportio- 
nalskrill. 

Prinieren kan udstyres med enkelt- 
ark - savel som traktorfremlaring. 
D.V.S. al del er rnuligt at skrive pa prak- 
lisk taget enhver form lor papir. 

Der indi keres for udlab af farveband 
og papir. Bade farveband og typehjul 
udskiftes let og renligt pa fii sekunder. 
Efler isastning af nyl farveband fort- 
saetter udskriften - uden tab af data. 

Ud over at printeren kan styres via 
computeren.findes der forskellige t>e- 
tjeningstaster pa frontpanalenet, bl.a. 
TOP LINE. HALV LINIE OP/NED, Ll- 
NIEAFSTAND og TEGNAFSTAND. 

Printeren kan indstillestil at fungere 
som apparat 4 eller 5. Det er af meget 
stor veerdi , hvis man samtidig snsker 
attilslutteen matrixprinter eller plotter. 




Commodores nye typehjulsprinter er meget lydlos og laver et seerdeJes 
professionelt arbejde. Den forvenies i handeten omkrlng uge 20 og vil 
koste kr. 5.995,- inkl. moms. 



Tekniske data: 

Skrivcprincip: Ud*kifieligt typehjul med 10(1 
icgn, 

ElcktroniskKtynngaf slagsiyrke. 

14 tegn/sek. ved 10 legnVtommc 
bidircktional skriti. 



Skrive- 
bastighed; 

Maksimal 
papirferedde: 
Maksimal 
skrivcbrcdde | 

Tjihu lotion: 



375 mm (14.76"). 

297 mm (11.69"). 

Hidircklional. dircklc hori>ontii! 
tabulering (il (abulalorslop. 
tuilvinn frciniid. 

Horizontal 10. 12 og 15 tcgn/iommc propor- 
bevjcgelse: lionahtRrifi 

Kan program*! vies i trin pa 'hm'\ 

Uniclff-ngdc: 116 icgn vcd 1(1 (cgn/iommc, 
140 icgn ved 12 (cgn/iommc. 
17S tegn ved 15 legn/tummc. 

PapjrfncmftfringiVariabel, mindste fremforing; 

l *W". bidirckiional. halvlinle. 
formlxngde, form-feed og top of 
form 

Limeafstande: 1 Unie %" 
Itt folic'*" 

2 IWe W 

3 linie l h" 



I nrigirui I (8" g) og 4 kopicr ( 41) g) . 

tngangs-karbon 76U0U anslag 
En gangs- karbon H600O anslag 
Ffergangs-karbon 335000 ansbe 
Flergangt-siof 1000000 nmlog 

Fed shift (W) 
Dohhc Itanslag 
Automalisk underMrrgning. 

Hade (rem- og ulbagc mcd 
prinivejsoptimcring. Aulomalisk 
uncle my kkc Is* a( undlge mcllem- 
rurmanslag, 

Koiomandoer: F-SCapc Kkvcnscr Og wkundtcr- 
adresser styrer printeren. 

Danskc og Internationale tcgnurt 
(ASCII) islorl udvalg al lypchjul 



Antal kopicr: 

FarvcWind*- 
kasscllcr 



Skrift- 
cgenskaber: 

Skrivembdcr: 



Skrift- 
indikaluter: 



Bericnings- 
(aatcr 



Nclspxnding 
On/off LINE 

Fcjl (papiwdltfb, larvcbandsucl- 
leM 

ON/OFF line 
CLEAR (Slei buffer) 
FORM FEED (Ny side) 
TOF (Sluri pa loppen Hf Miicn> 
Slagstyrkc OP/NED 
HnMinic OP/NED 
Unieafstand 
Tcgna (stand 



Test: 

Printer- 
buffer 

Dimensioner: 



V-gt: 

Omgiveta-s-' 
Icmperatur: 

Luft- 
higtighed: 

Nrttfl- 
slutnmg: 

Med leveret 
lllbelwr 



Ekstra- 
tilbchW: 



Prmtcrselvtcst. 
IKbyic. 



Hnjde 1 55 mm 

Brcddc 520 mm 

Dybdc 360 mm. 

lUkg. 

Drifl 

Opoevating 

25-95 %.rel«tiv. 

220 Volt. 50 HZ. 

Farvebantlftkasrtctte. 
Dan&k ivpeh|ul (PICA 10). 
Nellcdnmg 
Intcrfacckobcl 

Trakiorfrcmfpring. 

Enkcl la rksfiem faring ( I ark 



+4 C til +40 C 
v25Ctil+*0e 
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HVEM GI'R DIG FRENH 




■MTIDENS SOFTWARE? 




Maskinkodemonitor 



En af de forste gode monilorer, der 
kom frem til Commodore, var SUPER- 
MON 64 (EXTRAMON). som Jim But- 
terfield lavede for nogleSr siden. Den 
har siden vaaret oftentliggjort utallige 
steder og nu ogs£ i RUN. Der er lale 
om et rent maskinkodeprogram, der 
fylder omkring 2300 adresser. Man 
kan i princippet Isegge den mange for- 
skellige steder i hukommelsen, men vi 
har valgt at Isegge den, hvor Basic 
programmers normatt starter. Del 
betyder. at du kan ikke have den inde 
sammen med et Basic-program, med 
mindre du flytter startadressen for Ba- 
sic-programmerne efter SUPERMON 
64 er indlsest. 

Indtastningen 

Det har altid vasret et problem at indta- 
sle store maskinkodeprogrammer 
uden at lave fejl i indtastningen - fejl, 
der nsesten er umulige at linde. For at 
lose dene problem, viser vi et indtast- 
n ingsprogram , der er nodvendigt for at 
kunne indtaste selve maskinkode- 
programmet. 



Selve indtastningsprogrammel er 
et Basic-program, der indtastes og 
gemmespaganske normal made. Nar 
du har indtastet programmet fejlfrit, 
gemmer du del pa band eller diskette. 

Derefter slukker og tender du for 
computeren og indtaster folgende h- 
nie: 

POKE 8192,0:poke44,32:NEW 
ogtrykkerpaRETURN.Hermedhardu 
fiyttet startadressen for Basic-pro- 
grammer til 8192. Derefter indlaaser 
du fndtastningsprogrammet og 
RUN 'er det. Du vll herefter blive spurgt 
om en startadresse og her taster du 
2048. Sa bliver du spurgt om en slut- 
adresse og her taster du 4351. 

Indtastningsprogrammet fungerer 
nu saledes, at det eneste du skal indta- 
ste er de tal , der star efter DATA pa de 
enkelte imier. Du skal IKKE indtaste li- 
nienum re. tkke kommandoen DATA og 
ikke kommaerne mellem tallene. 

Taster du en linie gait, vil program- 
met ikke acceptere indtastningen. og 
du bliver bedt om at taste om. Nar du 
er feerdig, bliver du bedt om program- 



navn og kan gemme programmet pa- 
band eller diskette. I ovrigt har pro- 
grammet falgende kommandoer: 

SHIFT-S = SAVE 

SHIFT-L = LOAD 

SHIFT-N == Nyadresse 

SHIFT-D = Display (pa skserm) 

Du behaver ikke at indtaste SUPER- 
MON 64 pS en gang. Nar du vil albry- 
de.SAVE'rdudet.du har lavelogsluk- 
ker. Nar du starter Igen, starter du n0j- 
agtig, som da du begyndte. Men i ste- 
det for at starte forfra med indtastnin- 
gen. trykker du pa SHIFT-L og loader 
programmet ind. Tryk derefter pa 
SHIFT-N og indtast den adresse, du 
var naet til. 

Nar programmet er hell feerdigt . kan 
du indlaase, gemme og k&re det som et 
almindeftgt Basic-program, og du skal 
ikke fersl reservere plads til det. 

Den her viste metode giver nsesten 
100% garanti for korrekt indtastning 
og husk endelig at gemme indtast- 
ningsprogrammet, (order kommer He- 
re af den slags programmer i RUN. 



SEJTGREJ 



1541 SUPER TURBO 

Speeder din slove 1541 'er 16 gange op. 
Fyldt med nye speendende kommandoer. 
Ring og nor nasrmere! Pris inkl. 
montering. 

TEKST64 

Kraftfuldt tekstbehandlingsprogram af 
professionelt tilsnit, fuldt dansk karakter- 
seet. 

DISK 64 

Avancerede diskrutiner til den seriose 
brugeraf 1541-diskdrevet. 

DISK TOOL 64 

15 uundvaarlige hjeelperutiner for basic- 
programmoren. samlet i brugervenlig 
pakke. 



985, 

385,- 
125. 

125,- 



Alle programmer m. turboload og udfarlig dansk vejlednlng. 

Priserne er inkl. moms og forsendelse. 

Beslil allerede Idag oiler ring/skriv for produktkatalog. 

?B Data 

Postboks28 • 2980Kokkedal 
Telf.02-24 26 58 • Giro 5 69 68 36 




A PUBLICATION OF 
CW COMMUNICATIONS 



INDTASTNINGSPROGRAM 

100 PRINT "rCLRDCBLUr ; THR*C HZ 3; CHRM8 3; 
: POKE532 81.1: POKE53280 , 1 

101 POKE 788.52 

110 PRINT TREUJM0SPC3"; 

128 PRINT "T REU3C 8SPC3 INDTfiSTNINGSPROGRfiM 
FORt 9SPC3 - : 
130 PRINT* [REUH9SPC3MASKINKOOEPROGRflMNE 
Rt 11SPC3 

118 PRINT'tREUJClBSPCJ" 

210 PRINT CGR2JSTPRT PDRESSE7C 8SPC3C 9CUJ 

: : INPUTS: F =l-F:C4sCHRi( 31+119*? 3 
220 I FS <2560R C S >40960flNDS <«?3 1 52 30RS >5324 
7THENGOSUB3000! GOT021 0 
225 PRINT: PRINT: PRINT 

230 PRINT' r GR23t 2C03SLUT ADRESSE ?C 8SPC3 
r 9CU J ' i : INPUTE:F = 1-F:C* = CHR*(31 + H9*FJ 
2m lFE<256ORCE>48960flNDE<43152 3ORE>5324 
7THENGOSUB3000: GOTO230 

250 IFE<STHENpRINTC»; t REUJSLUTC 2SPC3 « 2 
SPC3STORU 2SPC J : GOSUB1000: GOTO 230 
260 PRINT: PRINT: PRINT 

300 PRINT ' f CLR3 " ; CHR*C 14 J: flD=S: POKEUt-21 , 
0 

310 PRINTRIGHTlt 8000 *t1 ID*(STR*(flD 3,2), 

53; : ' ; : FORJ = 1T06 

320 GOSUB570: IFN=-1 THENJ =J tN: GOTO320 
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330 1FN=-211THEN 710 
100 IFN=-204THEN 730 
410 1FN=-286THENPRINT: tNPUT T CN3C S/1 3NDT 
AST CS/N3Y [ S /A 3 DRESSE " i ZZ 
415 IFN=-20BTHENIFZZ<SORZZ>ETWENPRINT'tR 
EUJF E J L GOSUB1000: GOTO410 
417 IFN=~206THENflD=ZZ:PRINT:GOTO318 
420 IF NO-196 THEN 480 
430 PRINT: I NPUT ' C S/0 J I SPLAY : C S/F 3 RA ■ ; F i P 
RINT . '( S/T JIL " ; : INPUTT 

440 IFF<SORF>E0RT<CC/-3>ETHENPRINT rS/T13 
lNDST';S;"tCU3. IKKE flERE END " :E : GOTO430 

450 FORI =FT0TSTEP6: PRINT: PRINTRIGHTK'00 
0B'*niDtCSTR*-CI),2) t 53; ': "; 

451 FORK=0TO5:N=PEEKCI*K):PRINTRIGHTiC"0 
e-+I1ID*CSTR*CN J, 23. 33; .'; 

460 GETAt: IFfli>" "THENPRINT: PR INT : GOTO310 
^70 NEXTK:PRINTCHR*C20 3l : NEXT I: PRINT: PRI 
NT:GOTO310 

480 IFN<0 THEN PRINT: GOTO3I0 
498 AC J )=N:NEXTJ 

508 CKSUM =flO- INT C AD/256 3*256: FOR I - 1 T06: C 

KSUrt = CCKSUM»fttI 3 3AND255: NEXT 

510 PR I NTCHR4 C 18 3; = GOSUB570 : PR I N TCHR* C 20 

) 

515 IFN=CKSUriTHEN530 

520 PRINT:PRINT"rS/L3INIE tS/F3EJLlNDTAS 
TET s CS/G3M I GEN " : PRINT: GDSUB1 000 J GOTO 
310 

530 GOSUBZ000 

540 FORI=lT06:POKEAD+I-l .At I }: N£XT:P0KE5 

4272,0:POKE54273,0 

550 AU=AD+6: FT AD<E THEN 310 

560 GOTO 710 

578 N=0r2=0 

580 PRINT "tCXtJ" ! 

581 GETAit IFP.t=* ' THEN581 

585 PR INTCHR1C20 ): : A=A5C(fli 3: IFf=t=130RA=<* 

4ORA=32THEN670 

590 IFA> 1 2BTHENN=-f*: RETURN 

600 IFAO20 THEN 630 

610 GOSU0690: IFI =1ANDT=44THENN=- 1 ! PRINT" 
[CU3 CCU3 '■; :&OTOB90 
620 GOTO570 

638 IFFK48ORFO57THEN580 
640 PR1NTA4;:N=N*10+A-4B 

650 IFN)255 THEN A = 20: GOSUB1000: GOTO600 

660 Z=Z* 1 : [FZOTHEN580 

670 IF2=0THENGOSUB1800:GOTO570 

680 PRINT" . ' ; : RETURN 

690 SX-PEEKt203)+256*PEE:Kt210J+PEEK(211 3 

691 F0RI=lT03:T=PEEKCSx-I 3 

695 IFTO44ANDTO58TH.ENP0KES*-! ,32: NEXT 
700 PRINTLEFTK r 3CU3 " ,1-1 3: : RETURN 
710 PRINT"fCl.R3£REUlx** (S/SJAUE *M(3CN 
1" 

720 INPUT fCNJ CS/P3ROGRAI1NAUN ;F4 
730 PR INT: PRINT "I 2CN3CREUK S/T K OFF 3 APE 
ELLER CREUUS/D3COFF3ISK! (t S/H/l S/O 3 )" 
740 GETA4 : lFP«i<>"T " ANDA*< >"D ' THEN740 
750 DU = l-7*trH = '0*' V IFDU=BTHENF* = "a! "*F4 
760 T* =F* * 2K=PEEKtS3 3+256*PEEKC54 J-LEN CT 
♦ 3:P0KE782,ZK/256 

762 P0KE7S1 . ZK-PEEKC782 3*256: POKE780 .LEN 
(T13:5YS65469 

763 POKE780. I --P0KE781 . DU: P0KE782 . 1 : SYS65 
466 

765 P0KE254 .S/256: P0KE253 .S-PEEKC254 3*25 
6: POKE 780. 253 

766 POKE 782.E/256: P0KE781 .E-PEEK C7S2 3* 
256JSYS65496 

770 IF CPEEKC7B3 3AN01 30RCST AND131 3THEN78 
0 

775 PRINT TCN30.K, ' : END 

790 PR I NT "f CMC S/F3EJL UED f S/S3AUE.I2SP 
C3CS/03f1 IGEN. : 1FDU = 1 THEN720 



781 0PEN15.8.15: INPUT-15 . El * ,E2*: PRINTE1 
«;E2»: CLOSF15:GOTO720 

790 PRINT" T CLRJt REU]*** [S/LJOAD ***C2CN 

1" 

800 INPUT T2CN3 [ S/P3RQGRAPINAUN " ; F* 
810 PR1NT:PRINT"[ 2CN3C REU 3 [ S/T 3 C OFF 3 APE 
ELLER tREU3lS/t)TC0FF3ISK: [CS/T3/CS/0] 3" 
820 GETA4: 1 F A* <> " T~ ANDA4 O D " THEN820 
830 0U=1-7*CA4="D" 3i I FOU - 8THENF* - " 0 : *F* 

840 T*=F*:ZK-PEEKC533r25e*PEEKC54 3-LENCT 
*}:P0KE7B2,2K/256 

841 PDKE78I , ZK-PEEKC782 3*256 : POKE780 .LEN 
fTt3:SYSB5469 

845 POKE780, l:P0K£78i ,DU: P0KE782 . 1 : SYS65 
466 

850 POKE780.8:9YS65493 

860 IFCPEEK(783)AND1 30R(ST AND131 3THEN87 

0 

865 PRINT TCN30.K. :GOTO310 

870 PRINT TCN3CS/F3EJL UED t S/L 30AD -L 2SP 

C3CS/03P1 IGEN.f CN1 IFDU = 1THEN080 

880 0PEN15.8.15: INPUT- 1 5 .E li ,E2*:PRINrEl 

4 ; E24 : CLOSE 1 5: GO rO900 

1000 REP1 SUMMER 

1 00 1 P0KE54296 . 1 5: P0KE54277 . 45: P0KE54278 
.165 

1002 P0KE54276.33:P0KE 54273 .6: P0KE54272 
.5 

1 063 FOR T = 1 T 020 0 : NEX f : P0KE54 276 . 32 : POKE 5 
4273,0: P0KE54272 ,0: RETURN 
2008 REM KLOKKELtT) 

2001 P0KE54296, 1 5: P0KE54277 , 0: P0KE5427B , 
247 

2002 POKE 54276, 17:POKE54273.40:POKE542? 
2.0 

2083 FORT^ITO100:NEXT:POKE54276,16:RETUR 
N 

3000 PRlNlCi: I REU] IKKE KORREKT OpIRAADE " 
: GOTO1000 

READY. 



KONTROLSUM FOR I NO TASTN I NGSPROQRAM 



100 


160 


101 


241 


1 10 


42 


120 


255 


130 


140 


140 


239 


210 


149 


220 


246 


225 


63 


230 


131 


248 


192 


250 


224 


260 


63 


300 


124 


310 


139 


320 


7 


390 


41 


400 


51 


410 


150 


415 


43 


417 


138 


<*20 


43 


430 


64 


.-440 


83 


150 


51 


451 


1 10 


160 


143 


170 


87 


4Q0 


147 


190 


226 


-500 


IS 


510 


5 


515 


77 


520 


183 


530 


73 


540 


210 


550 


121 


■360 


65 


570 


166 


580 


190 


581 


107 


5B5 


106 


530 


115 


600 


18 


610 


203 


620 


37 


630 


61 


640 


208 


650 


67 


668 


138 


678 


27 


580 


12 


630 


194 


691 


67 


695 


1 18 


700 


33 


718 


160 


720 


136 


730 


149 


740 


110 


750 


201 


760 


21 1 


762 


190 


763 


124 


765 


189 


766 


163 


770 


201 


775 


15B 


780 


218 


781 


139 


790 


128 


800 


123 


818 


149 


920 


109 


830 


201 


840 


211 


841 


190 


845 


124 


850 


1 17 


960 


201 


865 


59 


870 


219 


880 


138 


1000 


136 


1 001 


69 


1002 


131 


1003 


63 


2000 


89 


2001 


13 


2002 


234 


2003 


221 


3008 


148 







SUPEFI10N 6 4 

2018 DATA 000.023.008.100.060.153,028 
2054 DATA 031 . 147 .01 8 .929 .029 .029 .036 
2060 DATA 029,144.063.088,084,082,252 
2066 DATA 065.877,073.028.000,046,10? 
2072 DATA 008.110.000,153,034.017,090 
2078 DATA 032.032.032,032.032,032.222 
2084 DATA 032.032.032.032.032.032.228 
2090 DATA 032,032.032,000,073.008.219 
2096 DATA 120.000,153.034.017.046.162 
2102 DATA 046.046,046,074.073.077,160 
2108 DATA 032,066,085.084.084,069,224 
2114 DATA 052.070.073.069,076.068,248 
2120 DATA 800.102,008.130,000.158,214 
2126 DATA 040.194,040.052.851.041,240 
2132 DATA 170.058.053.054.172.194,009 
2138 DATA- 840.052,052.041,170.049,238 
2144 DATA 050.055.041.171.056,000,213 
2150 DATA 800.000.170.178.170.170,014 
2156 DATA 170.170.170.170,170,170,104 
2162 DATA 1 70 . L70 . 1 70 . 1 70 . 178 . 1 70 , 110 
2168 DATA 169.011 .141 ,032,208,141 ,054 
2174 DATA 033.208.165.045.133.034.232 
2180 DATA 165.046,133,035,105.055,213 
2186 DATA 133.036.165,056.133.037.186 
2132 DATA 160,000,165.034.208.002,201 
2198 DATA 198.035.198,834,177.034.058 
2201 DATA 208.060_,J65.834,Z08.802.065 
2218 DATA 1 98 .035 . 198 .034 . 1 77 .034 . 078 
2216 OAT A 248.333.133.038.165,034.043 
2222 DATA 208,002.198,035,138,034.081 
2228 DATA 177.034.824.101,036.170.210 
2234 DATA 165.038.101.037.072,165,252 
2240 DATA 055.208,802.198.056.198.141 
2246 DATA 055 , 1 04 . 145 .055 , L38 ,072 , 255 
2252 DATA 1 65 .055 , 208 .002 . 198 ,056 . 1 20 
2258 DATA 198.055.104.145.055,024.023 
2264 DATA 144.182.201.079.208.237.243 
2270 DATA 165.055.133.051.165,056.079 
2276 DATA 133.052.108,055.000.879.143 
2282 DATA 079.079.079.173,230.255.105 
2288 DATA 000.141.022,003.173.231.042 
2294 DATA 255.000,141,023.003.169.069 
2300 DATA 128.032.144.255,000,000.843 
2306 DATA 216.184.141.062,002.104,119 
2312 DATA 141.061.002.104.141,060.005 
2318 DATA 002,104.141 ,059 ,002 , 1 04 , 1?B 
2324 DATA 170,104.168.056.138.233,121 
2330 DATA 002.141,058,002,152,233.102 
2336 DATA 000.000.141,057.002.186.162 
2342 DATA 142.063.802,032,087.253.105 
2348 DATA 000.162,066,169.042.032,003 
2354 DATA 087.250.000.169.082,208.078 
2360 DATA 052,230,193.208.006.230.207 
2366 DATA 194.208.002.230.038.096,062 
2372 DATA 032.207.255.201.013,208.216 
2378 DATA 248.184,104.169,144,032.107 
2384 DATA 210.255.169.000.000.133.079 
2390 DATA 039.162.813.169.046.032.834 
2336 DATA 067.250,000.163.005.032.123 
2402 DATA 21 0 . 255 . 032 ,062 ,24B .000 , 1 37 
2408 DATA 201,046.240.243,201,032.049 
2414 DATA 240.245.162.014.221.183.151 
2420 DATA 255.000.208.812,138.018.227 
2426 DATA 170.189.199.255.800.872.239 
2432 DATA 199.198.255.000.072.096.170 
2430 DATA 282.016.236.076.237.250,127 
2441 DATA 000.165.193.141.058.002,187 
2450 DATA 165.194.141,057.802.096.033 
2456 DATA 163.088.133,823.160.088,139 
2462 DATA 800.032,084,253.080.177.192 
2468 DATA 133.032.072.250,000,032.231 
2474 DATA 051.248,000,198.029,288.136 
2480 DATA 241.096.832.136.250.000.163 
2486 DATA 144 .0 1 1 . 162 .000 .000 . 1 29 . 1 16 
2492 DATA 193.193.193,240.003,076,862 



2498 DATA 237.250.000,032.051.248.244 
2504 DATA 000.198.029.096.169.059,239 
2510 DATA 133,193,169.002.133.194.006 
2516 DATA 169.305,096.152.072.032,226 
2522 DATA 087.253.800.104.162,046,182 
2528 DATA 076.887.250.000,169.144.182 
2534 DATA 032.210.255,162,000.008,121 
2540 DATA 189.234.255.000.032,218,132 
2546 DATA 255.232.224.022.208.245,148 
2552 DATA 160.059.032.194.248.000,173 
2558 DATA 173,057.802,032.072.250,072 
2564 DATA 000.173,058.002,032.372,085 
2570 DATA 250.000,032,183,248.800,211 
2576 DATA 032,141,248,800,248.092.001 
2582 DATA 032,062,248,000,032.121,005 
2588 DATA 250 ,800 . 144 .051 ,032 . 1 05 ..098 
2594 DATA 250.000.032,062.248.000,114 
2600 DATA 832.171 .250.000.144,040,115 
2606 DATA 032.105.250.000.169.144.234 
2612 DATA 032.210.255.032.225.255.83? 
"2618 DATA 240 .060 . 166 ,03B .208 ",05B;«58 
2624 DATA 165.195.197.193.165,196.151 
2630 DATA 229.134.144.046.160.058.133 
2636 DATA 032.194.248.000.032.065.135 

2642 onrn 230.000.032,139.248.800.239 

2648 DA 1 A 24 8.224.076,237.258.008.891 
2654 DATA 037.121.250,000.144.003.132 
2660 DATA 032.128.248.000,032.183.211 
2666 DATA 248 .000 . 208 .007 .032 , 1 21 .2 1 0 
2672 DATA 230.008.144.235.169.808.158 
2678 DATA 133.029.032.062.248.000.110 
2684 OAT A 032.161,248.000.208.248.253 
2690 DATA 076.071.248.000.832.207.252 
2636 DATA 255.201.013.240.012.201.034 
2702 DATA 032,208.209.032.121,250.226 
2708 DATA 008.144.003.032.128.248,191 
2714 DATA 008.169.144.032.210.255,196 
2720 DATA 174.063.002.154.120.173.078 
2726 DATA 057.882.072.173,058.802.018 
2732 DATA 072.173.859.002.072,173,211 
2738 DATA 060 .002 . 1 74 .06 1 .002 , 1 72 . 137 
2744 DATA 0Fv? ,002 . 864 . 163 , 1 4 4 . 832 , 1 45 
2750 DATA 218.255.174.063.007.154.024 
2756 DATA 108.002.160.160,001,132,24? 
2762 DATA 186.132.185,136.132,183.132 
2768 DATA 132.144,132.147,169,064.228 
2774 DATA 133.187.169.802.133.188.002 
2?80 DATA 032.207.255.201.032.240.163 
2786 DATA 249.201.013.240.056.201.162 
2732 DATA 034.208.020.032.207.255.220 
2738 DATA 28 ! .034 .240 .016 . 20 1 .0 13 . 175 
2684 DATA 240 .04 1 . 145 . 187 .230 . 183 .246 
2810 DATA 200.192.016,208.236,076.154 
2816 DATA 237.250.000.032.287.255.213 
2822 DATA 201.013.240.022.201.044.215 
2828 DATA 208.228.032.136.250,000,090 
2834 DATA 04 1.015.240.233,281.003.239 
2840 DATA 240.229.133.156.832.287.82? 
2846 DATA 255.201.013.096.108.048.239 
2852 DATA 003.108.050.003.032,150.126 
2858 DATA 249 . 800 . 208 . 21 2 , 1 69 . 144 .088 
2864 DATA 032.210,255.159,800,000.202 
2870 DATA 032 .239 .249 .800 ; 165 . 1 44 . 1 1 5 
2676 DATA 04 I .0 1 6 , 208 . 1 96 .876 .071 . 156 
2882 DATA 248.800.032,150.249.000.233 
2888 DATA 281.044.208.189.032,121.096 
2894 DATA 250.000.032.185.258,000,203 
2900 DATA 832.207.255.201.044.208.08? 
2906 DATA 17 3.832.121.258,000,165,063 
2912 DATA* 193.133.174.165,194.133.864 
2918 DATA 175.032.105.250.000,032,184 
2924 DATA 287.255.281.013.208.152,328 
2930 DATA 169.144 .032 .21 0 , 255 ,032 , 188 
2936 DATA 242.249.008.076.071.248.238 
2342 DATA 000 . 1 65 . 194 .032 ,072 , 250 ,0?1 
2948 DATA 888.165.193.072.074.074,198 
2954 DATA 074.074.032,896,250,000,152 
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2960 DATA 170.104,011,015.032,096,030 
2966 DATA 250.000.072.138.032,210.084 
2972 DATA 255,104,076,210,255,009,041 
2978 DATA 048 .201 .058.111 .002 . 105.298 
2984 DATA 806,096,162,002,181,132,033 
2990 DATA 872.181.194,119,192.104,042 
2996 DATA 149.194.202.208,243.036,248 
3002 DATA 032.136,250,000.144.002.238 
3008 DATA 13.3,194,032.136,250.000,169 
3011 DATA 144 .002,133,193.096.169,167 
3020 DATA 800.000.133.042.032.062,217 
3026 DATA 248.000.201.032.208.009.140 
3032 DATA 032.062,248.000.201.832,023 
3038 DATA 208.014.024.096.032.175,083 
3041 DATA 258.000.810.010.010.010.006 
3050 DATA 133.042,032,062,248.000.239 
3056 DAI A 032. 17^. 258. 000. 005. 042. 232 
3062 DATA 056.096.281.058.144.002,835 
3068 DATA 105.009.841.015.096.162.167 
3074 DATA 002.044.162,300.000,180.134 
3080 DATA 193.208.008.180,194.208.231 
3086 DATA 082,230.038.214.194,214.138 
3092 DATA 193.096,032.062.240.000.139 
3098 DATA 201.032.240.249.096,169.245 
3104 DATA 000,000.141,000,000.001,174 
3118 DATA 832.201.250,000.032.143,187 
3116 DATA 250.800.032,124.250.000.188 
3122 DATA 144.009.096.032,062,248,129 
3128 DATA 000.032.121.250.000.176,123 
3131 DATA 222,174,063,002,154,163,078 
3140 OAT A 144.032.210,755,169.063.173 
3146 DATA 032,210,255,876,071.248.198 
3152 DATA 000,032.084.253,000.202,133 
3158 DATA 288.250,096.230.195.208.249 
3164 DATA 002.230,196.096.162.002.012 
3170 DATA 181.192.072.181.039.149.144 
3176 DATA 192.104.149.039.202,200.230 
3182 DATA 243.096.165.195.164.196.145 
3188 DATA 056.233.002.176,014,136.221 
3194 DATA 144.011,165.040.164.041.175 
3200 DATA 876.051.251,000.165.195,098 
3206 DATA 164.196.056.229.193,133.081 
3212 DATA 030.152.229.194.168,005.150 
3218 DATA 038.096.032,212.250.000,254 
3224 DA I A 032.105.250.000.032,229.032 
3230 DATA 250.000,032,012.251,000,181 
3236 DATA 032 ,229 .250 .000 . 032 .84? .242 
3242 DATA 251.000.032,105.258.800,040 
3248 DATA 144.021,166.838.208.100,085 
3254 DATA 032,040.251.000.144.895.232 
3260 DATA 161.193.129.195.032,085.135 
3266 DATA 251.000.032.051,248.000.008 
3272 DATA 208,235.832,040.251,008.198 
3278 DATA 024,165,030.101,195,133.088 
3284 DATA 195,152,101,196,133,196,161 
3290 DATA 032.012.251.000.166.038,205 
3296 DATA 288,061.161,133,129,195,147 
3302 DATA 032.040.251.000.176,052,013 
3388 DATA ©32.184.258,000.832.187,153 
3314 DATA 250.008,876,125,251.880,176 
3320 DATA 032,212,258,808,032,105,111 
3326 DATA 250.000.032.229.250.000,247 
3332 DATA 032,105.250.000.032.062,229 
3338 DATA 248,000,032,136,250,000,164 
3341 DATA 1 44 .820 , 1 33 ,029 , 166 ,038,034 
3350 DATA 208.817.032.047.251.000.065 
3356 DATA 144.012.165,029.129.193.188 
3362, DATA 032 .05 1 . 248 .008 . 2BB .238 .043 
3368' DATA 076.237,258.000.076.071 .238 
3374 DATA 248.000.032,212.250.000,020 
3380 DATA 032.105.250.000.032.229.188 
3386 DATA 250.000.032.105,250,000,183 
3332 DATA 032.062.248.800,162,000,056 
3398 DATA 008.832,862.248.880.201,101 
3401 DATA 039. 208. 820. 032. 062. 248. 173 
3410 DATO 000. 157.016. 002. 232. 032. 009 
3416 DATA 287.255.201.013.240.034.014 



3422 DATA 224.032,208,241-218,028.043 
3428 DATA 142.000,000,001.032.143,162 
3434 DATA 250 .808 . 1 44 , 138 . 15? .01 6 . 1 83 
3140 DATA 882.232.032.207,255.201,017 
3446 DATA 013.210.009.032.136.250,030 
3152 DATA 000.144.182,221.832,208,146 
3458 DATA 236.134.828.169.141.032.105 
3464 DATA 210.255.032.087.253.888.205 
3470 DATA 162,080.000.160.000,808,208 
3176 DATA I 77 . 193 .221 .01 6 .082 .208 . 1 97 
3482 DATA 012.200.232,228.028.208.038 
318S DATA 213.832.065.250,000,032,014 
3434 DATA 084,253.800.032.051.248.066 
3500 DATA 000.166.038.208.141,832,245 
3506 DATA 047.251.000.176.221.076.181 
3512 DATA 871,248.808.832.212,250,229 
3518 DATA 000.133.032,165.134.133,079 
3524 DATA 033.162.808.000.134,040.053 
3530 DATA 169.147.032.210.255,169.160 
3536 DATA 144.032.210.255.169,022.016 
3542 DATA 133.829.832.186.252.000.254 
3546 DATA 832.282.252.000.133.193.888 
3554 DATA 132.194.198,029.288.242.205 
3560 DATA 169.145.032.210.255.076,095 
3566 DATA 071,248.000.160.044.032.025 
3572 DATA 194.248.000.032.084,253,031 
3578 DATA 000.032.065.250.008.032.117 
3584 DATA 084.253.000,162,000,000,243 
3590 DATA 161,193,032.217.252.000,093 
3596 DATA 072,032.031,253.000.104.248 
3602 DATA 032.053.253,000,162.086.012 
3608 DATA 224.083.208.018.164,031.160 
3614 DATA 248.014.165,042.281,232,156 
3628 DATA 177.193.176,028.032.134.068 
3626 DATA 252.080.136.208.242.006,118 
3632 DATA 0t2 . 144 .0 14 . 189 .042 .255 . 222 
3638 DATA 008.032.165,253.008.189,181 
3644 DATA 04B . 255 .000 ,240 .003 .03? . 126 
3650 DATA 165.253.000.202.208,213.083 
3656 DATA 096.032.205.252.000.170,059 
3662 DATA 232.208.001.200.152.832.135 
3668 DATA 194.252.000.138.134.028,062 
3671 DATA 032,072.250.000.166.828.126 
3680 DATA 096 . J65 .031 .056 . 164 . 194 ,034 
3686 DATA 178.816,801.136.181.193.207 
3692 DATA 144.801.200.096.168.074.023 
3698 DATA 144.011.074,176.023.201.231 
3704 DATA 034.240.019,041.007.009.214 
3710 DATA 128,074.170.189,217,254,134 
3716 DATA 000.176.004.074.074.074,022 
3722 DATA 074,04 1,015,208,004,160,128 
3728 DATA 128.169.008.080.178.189,032 
3734 DATA 029,255,000.133,842,041,138 
3740 DATA 003.133,031,152.041.143,147 
3746 DATA 170.152.160.803,224.138,241 
3752 DATA 240.811,074.144,008.074,207 
- 3758 DATA 071.009.032.136.208.250,115 
3764 DATA 208.136.208,242.896.177.215 
3778 DATA 193.032.191.252,080.162.251 
3776 DATA 881.032.254.250.000.196.157 
3782 DATA 031 .280.144,241 ,162.003,211 
3788 DATA 192,804.144,242,096.168.028 
3794 DATA 185,055.255.000.133.040.110 
3800 DATA 185.119,255.000,133.041,181 
3806 DATA 169.000.000.160.005.006,050 
3812 DATA 041,038.040.042.136,208.221 
3818 DATA '249,105,063.032,210.255.123 
3824 DATA 202,208.236.169.032,044.107 
3830 DATA 169.813.076.210.255,032,233 
3836 DATA 212,250.000.032.105.250.077 
3842 DATA 000.032.229,250.000.032,033 
3848 DATA 185.250,000.162.000.008,013 
3854 DATA 134.040.169.144,032.210,231 
3860 DATA 255,032.087.253.000.832,167 
3866 DATA 114.252.008.032.202.252.110 
3872 DATA 008.133.193.132.194.032.204 
3878 DATA 225,255,240,005.032.047.074 



3884 
3890 
3896 
3302 
3908 
3914 
3920 
3926 
3932 
3938 
3311 
3950 
3956 
3962 
3368 
3974 
3988 
3986 
3392 
3938 

4001 
4010 

4816 
4822 
4829 
4034 

4040 
4046 
4052 
4058 
4064 
4070 
4076 
4082 
4089 
4094 
4100 
4106 

4112 



pnifl 

DAT ft 
DA I ft 
DAT ft 
DAT ft 
DAT ft 
DA [ft 
DAIft 
DATA 

Dm ft 

DftTft 

Dm ft 

DATA 
DATA 
DAT ft 
DftTft 
DATft 
DATA 
DATft 
DATft 
DATA 
DATA 
DATft 
DftTft 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATft 
DATA 
DATA 
DATA 



251 ,000 
248.800 
169,003 
248.000 
248,243 
165.033 
252.0P0 
032.210 
250.000 
147.017 
201 .258 
249.162 
063.160 
002.110 
246.282 
032.207 
030.201 
208.254 
1 56 . 250 
1 34 . 1 33 
016.002 
232.208 
000.000 
2 30.038 
000. J 34 
217.252 
041 . 170 
189.119 
254 ,000 
224 .003 
240.021 
163.048 
254.000 
254 ,000 
235.006 
048.255 
000.032 
181 .202 
0 3?. 184 



.176 
■ 032 
.133 
.032 
.165 
.133 
.137 
.255 
.032 
.002 
.000 
.003 
.005 
.016 
.208 
.255 
.032 
.000 
.008 
. 193 
.232 
.219 
.134 
.240 
.029 
.000 
.188 
.255 
.208 
.208 
. 165 
,176 
,208 
.208 
.042 
.000 
.185 
,208 
.254 



.233,076 
.212.250 
.023,032 
.161 .248 
.032,133 
.194.876 
.040.240 
,096 .032 
.105.258 
.162.003 
.072. 2Q2 
.104 .056 
.074.1 10 
.082.136 
.237. 162 
.201 .013 
.242.245 
.176.015 
.164.193 
.159.048 
.157.016 
.134 ,040 
.839.210 
.1 17.162 
.165.038 
.166.042 
.055.255 
.080 .032 
.227. 162 
.825.164 
.042.201 
,033,032 
,204.032 
.199.136 
,144 .011 
.169.012 
.254 .000 
.209.240 
.098 .208 



,071 ,083 
,008,024 
.062,228 
.000.239 
. 193.023 
,070.233 
.003.014 
.712 .155 
.000.21? 
.032,200 
.208.016 
.233 .149 
.817.033 
.208.084 
.082.161 
.240 .858 
.032.152 
.032 .063 
.132.023 
. 157 .028 
.002,077 
. 162 .141 
.004 .080 
.000 .201 
.832 .074 
. 1 34 . 23.7 
.800 .141 
. 185 ,218 
,006,045 
.031 , 105 
.232.101 
.191 .111 
, 193 ,103 
.208.223 
. 188 ,106 
.255.019 
.288 .17! 
.018,036 
.171 .097 



4M8 
4124 
4 130 
4 136 
4112 
41 IB 
4 151 
4 1 60 
4166 
4172 
4178 
4 I 84 

4190 

4 196 
4202 
4208 
-4211 
4220 
4226 
4232 
4238 
4244 
4250 
4256 
4262 
4268 
4274 
4280 
4 286 
4 292 
4 298 
4301 
4310 
4316 
4322 
4328 
4334 
4340 
4346 



DATA 

DftTn 

UAin 
DftTn 

OATrt 
DftTA 

Drum 

DATA 

DftTn 
DATn 
DATn 

DATA 
DATA 

Dftrn 

DATA 

Dftrn 

DATA 
DATA 
DATA 
DATA 
DATA 
DftTft 
DftTft 
DftTft 

Dftrn 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

Dftrn 

DftTft 
OftTA 
OftTA 
DftTft 
DATA 



032, 184 . 
165.848. 
032,105. 
240.040. 
208,026. 
144 .010. 
030.016. 
000.208. 
016,246. 
185,194. 
136,208. 
193,032. 
193.132. 
210.255. 
248.000. 
032.065. 
253.003. 
255.076. 
032.191 . 
152.240. 
029.221 . 
1 34 .029. 
201 .048. 
096.056. 
003.208. 
034.069. 
009 .864 , 
008.064 . 
179.288. 
000.034. 
068.000. 
0*51 .209. 
834 .068. 
0B9.016. 
008.864 . 
169.000. 
000.080. 
145.116. 

044 ,R4I . 



254,000 
197 ,029 
250.000 

165 ,041 
03Z .028 
1 52 . 208 
010 .076 
208.250 
161 .033 
000 .000 
24B.165 
202 .252 
1 94 .169 
160 .065 
032 ,084 
258 .880 
169.005 
176 ,253 
254 .000 
014 .134 
016.802 

166 .028 
144 .003 
096 .064 
008 .864 
851 .208 
002 .069 
009 ,064 
808 .864 
063,051 
000 .017 
140.068 
051 .208 
034 .068 
009 .098 
000 .033 
000 ,000 
131 ,0?4 
044 .035 



Nyttige hjaelpeprogrammer 



.208,166.098 
.208.160,859 
.161.031 ,101 
.201 .157,116 
.251 .000.079 
.804.165,223 
.237.250.165 
. 165.030. 149 
,208.803.226 
,145.L93,025 
.038.115.254 
.000.133. 132 
.144.032.190 
,032.134.248 
.253.000.211 
.032.084 ,063 
.032.210,019 
.000,168,028 
.208.017.864 
.028.166.182 
,008.232,138 
.048.096, 129 
.201 .871 .054 
.002,869,031 
.009.848.250 
.008.864.094 
.051 .208.069 
.002.869,144 
,009,000,146 
,208, 110, 185 
.034 .068.133 
.154.016.077 
.008.064 . 135 
.051 .208.091 
.019.120. 032 
,129.130,181 
.089.077. 148 
.133.157.089 
.040.836.234 



Af Jorgen Jorgensen 

En god programmer er altid kendeleg- 
nel ved en omfangsrig samllng af ef- 
fektive og nyttige hjgelpeprogrammer 
og routiner. Vi bringerherlre saerdetes 
nyttige programmer til din samling. 

DATA-MAKER 

Det kraaver en del arbejde at omskrive 
maskinkoderoutiner til DATA-iinier. 
Med delte program behover du blot at 
indtasie terste og sidste adresse i det 
omrade, fra hvilket du onsker indhol- 
det cendret til DATA-linier. Du bestem- 
mer selv. hvor mange data der skal 
vsere pa hver linie, og linierne bliver 
nummereret efter den adresse. der 
svarer til f 0rste data i linien , Hvis du an- 
sker at sendre dette, kan du selv rette 
programme! til. 

Na.r du har tastet programmel ind, 
skal du sarge tor at gemme det, inden 
du praver det fsrste gang. Program- 
met sletter nemlig sig selv, og tilbage 
er kun de datalinier. du har bedt om. 

Del er dette program , vi har anvendt 



til udskrivningen af SUPERMON 64, 
blot med den forskef, at vi der har ind- 
lagt kontroldata til brug for indtast- 
ningspfogrammet. 

COMPACTOR 

Hvis du har indtastet l.eks. vores 
»PRIVATREGNSKAB", har du muligvis 
fundet ud af . at det fylder en sa stor del 
af hukommelsen , at det kan knibe med 
pladsen til de oplysn inger, du onsker at 
taste ind. Du kan naturligvis ga i gang 
med at slette REM-iinler, fjerne over- 
fladige mellemrum og »pakke« flere 
koimmandoer sammen pa en Hnie. 
Dette er en nsesten uoverkommellg 
opgave, specieltda programmerneol- 
te indeholde mange GOTO's og GO- 
SUB's. der ligeledes skal rettes. 

Dette program virker til bade Com- 
modore 64 og VIC-20 (med 16K udvi- 
detse), men kraaver en diskettestation. 
Programmet er ikke sserlig stort. men 
det er virkelig et program, der »bestil- 
ler nogel«. For give en ideom.hvaddet 
kan gore, kan jeg fortaalle, at selve 
programmet (Compactor) er omkring 



3100 bytes (13 blokke pa disken). Hvis 
det MCompacter« sig selv. vil det kun 
fylde omkring 1800 bytes (8blokke), el- 
ler omkring 58% mindre. En anden 
fordel er, at et »compactet« program 
vil kcre hurtige. Lseg programme! pa 
en ny diskette og brug ikke denne dis- 
kette til andet, da programmet bruger 
disketten, medens det arbejder. 

UNCOMPACTOR 

Ordene bliver mere og me re u-danske, 
men ordet uncompactor kan vel fir- 
mest oversales med »udvider«, idet 
det virker prsecis modsat det forega- 
ende program. Det skaber sa at sige 
I'luftci i programme! og mellem de en- 
kelte kommandoer, sa man har mulig- 
hed for at tilfeje og rette. 

Det er Ikke et rigtigl wrenumber-pro- 
gram« (det kommer senere), men det 
tager alle linier med Here kommando- 
er og aandrer dette. sa hver linie kun 
bestar af een kommando. Nar du har 
toretaget rettelser. kan du bagefter 
•>pakke« det sammen igen med det 
toregaende program. 



40 



TIL COMMODORE 64: 
UNCOMPACTOR 

190 REn xxxr°x*xxxxxxxxxxxxxxxxxxxxxx xx 

1 10 REP1 

120 REfl UNCOnPflCTOR II 
130 REM 

MR R£P1 BY: ROBERT W. BAKER 

150 REP1 15 UINDSOR DR.. ATCO. NJ 08004 

160 REH 

170 REM x**xxxx»»xxxxxx*xxxx*xxxxxxxxx 

180 i 

190 GOTO 360 

200 ; 

210 REM »>»> SUBROUTINES <<<<<<< 
220 : 

230 GOSUB 240: Ul =U 

240 GET05.C4: GOSUB ??0 

250 U=0: IF r.i<>* " THEN U=ASCtCi> 

260 RETURN 

270 INPUTnl5.EN,Ent.ET.ES: IF EN = 0 THEN 
RETURN 

280 PRINT: f'R 1 N I 'DISK ERROR': PRINT 
290 PRINT EM:Eflt:ET:£S: GOTO 1000 
300 IF Lt = — THEN RETURN 

310 I.A=LA'LENrl_i)*2: LI =INTCLA/256 ): L2 = 
LA-tLl*756J 

320 PRlNTo6.CHR4CL2);CHHi(Ll );Lt; : Li = "" 
: RETURN 
330 : 

340 REM xx>** INITIALIZATION ***** 
350 : 

360 PRINT CCLRJC5SPC1U N C 0 n P fl C I O 

PC3SPC3ir*: PRINT: PRINT 
320 PRINT "niH LINE LENGTH TO TRY UNCOnPfl 
CTING ': INPUTT3SPC3 l£3CU]-;XL 
380 Din C(?56): CLOSE 15: OPEM 15,8,15 
390 PRINT: PRINT" INPUT FILENAME": INPUT 
Fli 

400 OPEN 5.8.5."0: ' +Fii+" .P.R": GOSUB 2P 
0 

410 PRINT: PRINT^OurPUT F ILENAP1E" : INPUT 

F21 

428 OPEN 6.8.6. "0: "tF2>» ' .P.U" : GOSUB 2? 

0 

430 PRINT:PR1NT OK. WORKING ON LINE- ... 
. .": PRINT 

440 GOSUB 230: PR INT »6 .CHRif Ul );Ci; 
450 I A-Ul'C?S6*Ui: Li="": GOTO 600 
460 : 

470 RCM ***** OUTPUT THtS LINE" 
4 80 : 

490 GOSUB 300: tF LK=0 THEN 980 

500 LN=NL: PRINT LN; "C BSPC1"'"- PR I NT " [ CO 3 

510 Li=CHRi[|.L 5+CHRi tl.H J 
520 : 

530 REfl ***** READ THIS BASIC PGn LINE 
540 : 
550 X=l 

560 GOSUB 740: CCX)=U: IF U>0 THEN X=X+1 
: GOTO 5.60 
520 : 

58P REM ***** GET NEXT LINK t LINE* 
590 : 

600 GOSUB 230: LK=UiUi: IF LK -0 THEN NL- 
64800: GOTO 620 

610 G0SU8 230: NL =Ul + t25BxU J: LL=U1: LH = 
U 

620 IF Lt*"" THEN 496 
630 : 

640 REM xmx BREAK UP LINE IF POSSIBLE 

650 : 

660 U=X: X=l: IF U<XL THEN B68 
670 : 

690 REn SKIP IF NOT COLON 



690 : 

700 IF C00058 THEN 820 
710 IF X=l THEN Li = Ltt-CHR*lCCX )3s GOTO 7 
50 

720 LN-LN-rl: IF LN> = NL THEN 860 
230 HMNT(LNx7S6): L=LN-(256iM) 
740 Li=Li-»CHRl(W ): GOSUB 300: L 1 =HHRttL 3 

♦GHR$CH3 

758 X=Xfl: IF CCX)=32 OR CCX3=59 THEN 75 
0 

768 GOTO ?m 

220 : 

780 REH COPY REST OF LINE IF 

290 REM GOTO. END. RUN , If. RETURN 

800 REN REM. STOP. LIST. CONT 

018 : 

820 IF CCXX128 OR C[XJ>155 THEN 910 

830 IF CIX) = 128 OR CCX )>153 THEN 860 

840 IF CCXK137 OR CtX )>114 THEN 930 

850 IF C(X 1 = 140 OR C(X)=iqt THEN 930 

868 Li^Li.CHRifCfX)): \f C(X)>0 THEN X : X 

*l: GOTO 868 

870 GOTO 1518 

880 : 

830 REH SKIP IF NOT QUOTE 

900 : 

910 IF CCX)<>34 THEN 930 

920 tt=l.i.LHRifCrx)): X=X*lS IF CCX)<>34 

AND CtXIOfl ! ML N 920 

930 Lt=Li+CHPifi.CX)J: If CCX)>0 THEN X=X 

+i; GOTO 708 

940 GUTO 490 

950 : 

968 REN »** ENO Of BASIC PROGRAM 

920 : 

980 PPINT«6.CHRlt0);CHP*C0); 

990 PRINT: PRINT: PR] NT "DONE" : PR I NT : PR IN 

T 

1000 CLOSE 5: CLOSE 6: CLOSE 15 



KONTROLSUN FOR UNCONPACTOR 



100 


155 


110 


143 


128 


10B 


130 


143 


144 


68 


150 


176 


160 


143 


170 


155 


180 


50 


130 


66 


200 


58 


210 


186 


270 


58 


230 


44 


748 


44 


250 


166 


260 


142 


770 


3 


280 


152 


790 


168 


308 


131 


110 


21 


320 


230 


330 


58 


340 


197 


350 


58 


360 


1 15 


370 


723 


380 


70*1 


390 


91 


400 


96 


410 


189 


428 


101 


430 


216 


440 


t8 


450 


1 85 


460 


SB 


470 


85 


480 


58 


499 


70 


580 


213 


510 


48 


521? 


58 


530 


727 


540 


58 


550 


59 


560 


143 


570 


58 


589 


273 


590 


58 


600 


1 29 


610 


42 


520 


149 


630 


58 


640 


62 


650 


58 


660 


44 


670 


58 


600 


65 


698 


58 


700 


233 


?!0 


1?2 


720 


226 


730 


99 


?<\ 0 


8 


750 


195 


?60 


64 


770 


58 


780 


1 55 


790 


1 15 


800 


77 


810 


50 


820 


142 


630 


143 


840 


!42 


850 


133 


860 


715 


870 


70 


880 


58 


890 


84 


900 


58 


910 


229 


970 


132 


930 


?BR 


948 


20 


950 


58 


960 


147 


370 


58 


980 


0 


990 


143 


1000 


197 












TIL COMMODORE 64: 
COMPACTOR 

100 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXM 

1 10 REM 

120 REM COnPflC TOR I J 

130 REM 

110 REM BY: ROBERT U. BAKER 

150 REM 15 WINDSOR DR. rtFCO. NJ 08004 

160 REM 

170 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

180 ; 

190 DIM TLt 10003, CC2563: GOTO 100 
200 : 

Z10 REM xxxxx SUBROUTINES ** 

XX 

220 : 

230 GOSUB 2W ui=U 

240 GET«S,C4: GOSUB 270 

250 U=0: IF CiO"" THEN U=rtSCCCi!) 

260 RETURN 

270 INPUTnl5.EN.EM4.ET .ES: if EN=0 THEN 
RETURN 

290 PRINT: TRINTDISK ERROR : PRINT 
290 PRINT EN; EMt ; ET ; ES: GOTO I420 
300 IF I. * = " " THEN RETURN 

310 LA=LfttLEN(Ll 3+3: Al = I NT ( LA/256 3: A2 = 
L*-CP-lx?563 

320 PR I NT »6 .CHR4CR2 3: CHR4(fll 3;L4:CHR*C0 3 

LJ*""S RETURN 
330 P=tS GOSUB 230: LN=L»l * ( ?56*U ): Ll=Ul 
: L2=U 

310 PRINT LN; T.6SPC3": PRINT C CO]" J 

350 GOSUB 210: C(P3=U: IF U>0 THEN P=Pil 

: GOTO 350 

360 F=0: PL =P: P = i: RETURN 
370 : 

300 REM xxx REHOY DISK FILES 
390 : 

100 PRINT"! CLRDt 5SPC3C 0MPACT0RL3 
SPOII": PRINT 

110 PRINT: PRINT "MAX LINE LENGTH TO CREft 
TE" 

420 [NPUT"t3SPC]255[5CU3";ML: IF ML<1 OR 

ML>255 THEN 410 
130 CLOSE 15: OPEN 15,8.15 
110 PRINT: PRINT" INPUT FILENAME": INPUT 
Fl4 

150 OPEN 5.8.5."0:"+Fl»* ",P.R": GOSUB 27 
0 

460 PRINT: PRINT "OUTPUT FILENAME": INPUT 
F24 

170 OPEN 6.8.e."0:"+F24t" 1 P.U": GOSUB 27 
0 

180 PRINT: PRINT OK. SCANNING PROGRAM" 

190 PRINT T 3SPC1FOR TARGET LINES ": 

PRINT 
500 : 

510 REM xxx READ LOAD AOR . LINK t LINE" 
520 1 

530 GOSUB 230 

510 GOSUB 730: IF UtUl=B THEN 868 
550 GOSUB 230: |_N=UH- ( 256*U 3 
560 I 

570 REM xxx SCAN BASIC LINES FOR GOTO. 
GOSUB , RUN 8. THEN TOKENS 
580 : 

590 GOSUB 240 

600 IF U=0 THEN 540 

610 TF U = 137 OR UM41 OR U = 138 THEN 660 
620 IF U0167 THEN 530 
630 : 

640 REM xxx GET TARGET LINE* 
650 : 
660 LT=9 

670 GOSUfl 240: IF 0=32 THEN 620 



680 IF U<1B OR U>57 THEN 730 

690 LT=t I0*LI J'UALfC4 3: GOSUB 710: GOTO 

680 

700 : 

710 REM xxx CHECK IF ALL READY FOUND 
720 : 

730 FOR X=0 TO N: IF TLCXl=LT THEN 600 
740 NEXT X 

750 Tl f N )=L T : H=HM: PRINT IT; [ 6SPC 3"; 
PRINT [COJ ;: If NO000 THEN 800 
768 PRINT: PRINT: PR [NT TOO MftNY TARGET 
LINES I : GOTO 1 470 

770 ; 

780 REM xxx CHECK FOR ' ON ... GO T 0 /-GOSUB 
730 ; 

800 IF U--44 THEN 660 
810 IF U032 THEN 600 
820 GOSUB 740: GOTO 600 
830 ! 

840 REM xxx SORT TARGET LINES 
850 : 

860 IF N<2 THEN 930 
870 FOR X«0 10 N-l: FOR Y=0 TO N-2 
880 IF TLCXXIL(Y) THEN U = TL(Y3: TLCY )=T 
LCX3: TL(X5=U 
898 NEXT Y.X 
980 : 

910 REM **» EE I READY FOR COMPACT 
920 : 

938 PRINT: PR I NT : PRINT COMPACTING LJNE 
S... .~: PRINT 

910 CLOSE 5= OPEN 5 .6 .5 . "0: "*F It* " ,P ,R" : 
GOSUB 270 

950 GOSUB 230= PR I NT*6 .CHRtCUl 3; CHR4(U 3; 
; Lfl=Ul+C256»U ): L4 = "" 
960 : 

970 REM xxx READ PROGRAM LINE 
980 : 

998 GOSUB 230: IF UHJl=8 THEN 1400 
1000 GOSUB 330 

tele UrCCP): P-Prl: IF U = 32 OR U = 58 THEN 
1018 

1070 L4 = CHR4(I 1 )'CHR4(L2J: IF UO0 AND U 
<>143 THEN 1110 

1030 FOR X=0 10 N: IF TLCXKLN THEN NEXT 
X 

1640 IF TLl X3<>LN THEN 990 
1050 L4=L4t ;' : GOTO 1310 
1060 : 

1070 REM xxxx SCAN BASIC LINE ft. COMPACT 

PROGRAM 
1080 : 

1090 L4=L*i-CMR4CU3 
1 100 U=C(P): P=P*I 
1110 IF U=32 I HEN 1 100 
1 120 IF U=58 THEN 1260 

1130 IF YM37 OR U = 138 OR U=133 OH U = I57 

THEN F = l: GOIO 1090 
1148 IF U=8 OR UM43 THEN 1310 
4 150 : 

1160 REM xxx QUOTE - COPY TILL NEXT OR L 
1NE END 

1 170 ; 

1180 IF U<>34 THEN 1090 

1190 Li-L4+CHRt(U 3: U=C(P3i P=P*1: IF U = 

34 THEN 1000 

1200 IF U>0 THEN 3 190 

1210 IF F=0 THEN l_i=L4+CHR4C34 3 

1220 GOTO .1310 

1230 : 

1240 REM *** IF COLON - CHK NEXT CHAR. E 
LSE COPY CHAR 
12S0 ! 

1260 U=CCP3: P=P+l: IF L«=32 OR U=58 THEN 
1260 

1270 IF UO0 AND U0143 THEN L*=L*»":": 
GOTO 1 t I 0 
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1290 : 


130 


1S5 


110 


91 


450 


96 


1790 REI-I *" END OF LINE - CAN WE COMPAC 


160 


1 83 


170 


104 


480 


63 


T THESE LINES ? 


490 


1 27 


500 


59 


510 


203 


130B : 


520 


58 


530 


66 


540 


53 


1318 IF F = l THEN COSUB 300; GOTO 330 


550 


3 


560 


58 


570 


165 


1328 GO SUB 230: IF '~M U I =0 THEN 1160 


580 


58 


590 


67 


600 


93 


1310 GOSUB 310: IF CLFNCLt )»PL t4 3>ffL THE 


610 


243 


620 


136 


630 


58 


N GOSUB 300: GOTO 1010 


640 


1 27 


650 


58 


660 


130 


1348 FOR X=8 TO N: IF TLCXJO.N THEN NEXT 


670 


57 


690 


4 


690 


181 


X 


700 


58 


710 


132 


720 


58 


1350 IF U(X)OLN [HEN 1260 


730 


44 


740 


250 


750 


79 


1360 GOSUB 300: GOTO 1010 


760 


l 19 


220 


58 


780 


47 


1378 : 


790 


58 


900 


158 


810 


71 


1380 KEI1 *** END OF COIIPACr - WRITE ENO 


970 


222 


930 


58 


840 


23 


OF PROGRnm 


850 


58 


060 


97 


870 


16 


1390 : 


B80 


116 


830 


127 


900 


58 


1480 GOSUB 300: PRINT«6 .CHRit0 3; CHRiCB ); 


910 


?10 


970 


58 


930 


11 


1410 PRINT: PRINT: PRINT DONE ' : PRINT 


910 


175 


350 


147 


960 


59 


1420 CLOSE 5: CLOSE B: CLOSE IS 


970 


233 


990 


5B 


990 


92 




1 000 


67 


1010 


213 


1020 


709 




1030 


1 3? 


1 84 0 


123 


1050 


I 30 




I860 


59 


10^0 


43 


1088 


58 




1090 


178 


1 100 


U5 


1 1 10 


133 


KONTROL Sun FOR? COMPACTOR 


I I 20 


209 


1 t 30 


234 


1 148 


31 




l I 50 


5B 


1 160 


55 


11 70 


58 


100 113 110 143 120 201 


l IB0 


I 25 


I 190 


1 56 


1200 


148 


130 113 140 60 150 13? 


12I0 


1 17 


1270 


119 


1230 


58 


160 |43 170 U3 190 50 


1240 


t0t 


1750 


58 


1260 


250 


190 76 200 58 710 76 


I 270 


61 


I7B0 


58 


1290 


714 


270 58 230 41 210 44 


I 300 


58 


1310 


1 60 


1320 


92 


250 185 260 142 270 3 


I330 


1 19 


1340 


1 37 


1350 


162 


280 152 730 174 300 131 


1360 


5 


1 370 


59 


1180 


220 


3t0 215 320 3l 330 134 


1 390 


58 


1100 


151 


1410 


220 


310 149 350 116 360 119 


1120 


197 










370 59 300 I 60 390 58 














100 157 410 U3 420 126 














TJL COMMODORE 64: 


63190 END 












63190 PRINT T 2C03 : FORA = 1 T03: PRINT C 8SPC 


DATA-MAKER 


T':NEXT 


:PRINT"C3C03' 


J 






63200 A 


-PEEKC253 3+256*PEEKC254 3+PEEKC2 3i 


63000 PRINT C CLR3f 21C/1 3 M : PRINT" LREU3HUK 


GOTO63068 










OflMELSE UPSKRIUES [OFFJ" 


63210 0 


=PEEKC43):U=PEEKC14 3 




63010 PRINT'TREUniL BASIC-DAT AL INIER CO 


63220 IFPEEK(a+H-256xU3O131GOTO63240 


FF3~= PRINT C21C/U]" 


63230 Ql=PeEKtQ+256*U3:Ul = 


PEEKCQ+lt25BXU 


63020 PR 1 NT " DEC I PIALTPiL C INCL . 3 : PRINT 'HU 


1!Q = Q1: 


U=U1 


GOTO63220 






KOCinrfLSES PiDR. : PRINT: INPUT' FRfl "ifl 


53210 F 


-Q+256*U:PQKEP.0:POKEP+1 .0 


63030 PRINT: INPUT-TIL ' ; C: PRINT: I NPUT' AN 


63250 PRINT t CLR 3C 24C/I3 " 






TfTL DATA PR. LINIE' IB 


63260 PRINT' [ REU.1 TAST LIST 


FOR RT 


SE DAT 


63010 C=C/256: P0KE25 1 . C C- INTCC 3 3*256: POK 


At OFF] 












E252 X 


63270 PRINT 


T24C/U3" 


:ENO 






63050 PQKE2 ,B: PRI NT"t CLR) " ; 


63280 IFLENtA*3=3THENN*="00" 




63060 B*Av256: P0KE253 . (B- INTCB 3 1x256: POK 


63290 IFLFNtA*. J=4THENN4 = '8 






E.251 ,B 


63300 RETURN 








B3070 PRINT: PRINTMIDtCSTRlCA 1 .2 .LENCSTR* 














CA33-13; DATA 














63080 FORI=0TOPEEKC2D-1 














63090 A*=STR*CPEEK(A-M 3 3+" . ' 














63100 lFA*£>PEEKC25i 3+256xPEEKC252 3GOT06 


KONTROL SUM 


FOR DATA-tlAKER 






3150 














63110 GOSUB63280: PRINTN*+MIOi( A* , 2 .LENCFl 


63000 


111 


63010 


69 


63020 


70 


* 3-1 3; 


63030 


161 


63040 


193 


63050 


28 


63120 N*=" 


63060 


191 


63070 


161 


63088 


1 13 


63130 IFA+I=PEEKC251 3+256*PEEKt252 3GOT06 


63030 


141 


63100 


66 


63110 


25 


3160 


63120 


104 


63130 


68 


63140 


142 


63110 NEXri:GOTO63160 


63150 


89 


63160 


214 


63 170 


138 


63158 PRINT'CCU3 ":GOT053218 


63180 


128 


63190 


141 


63200 


242 


63160 PRINT tCU] " : POKE631 *PEEK C 1 38 3 , 1 3 


63210 


57 


63220 


1 59 


63230 


31 


63170 PRINT "GL S/0363130 : F0RA=631 T0634: P 


63210 


112 


63250 


160 


63260 


193 


OKEA , 115: NEXT: POKEA , 1 3: P0KE636 . 13: POKE13 


63270 


215 


63280 


88 


63230 


4i 


9.6 


63300 


112 
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TIL COMMODORE 64: 
TIPSPROGRAM DEL 2 

10010 DlflERH 10003;DIM5R*C500 3;DWSPXC50 
3:U:IMG4C4&3:DIMR1C133,RX(133,R2C133 

11300 REftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx- 

11301 REM INDTflST SYSTEMRC KKER 

1 1303 REnxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

11310 SRJ^SR*M:FL=0:Ot = ' ' :SR = 1 

11315 PRINT'C CLRJCREU3 SYSTEMKUPON NR. " 

SRx 

11320 GOSUB28030 

11330 GETQQ*: IFQO*=" '"THEN1 1330 

11335 IFFL<0THEN113B0 

11 310 IFQO* ="H" THENSRx -SRk - 1 : GOTOl 1 220 

11311 IFGQi= 'tFl J'ANDT-EN(SR*CSRx 3 3>0THEN 
GOSUB21 700: GOSUB21500: GOTOl 1330 

11 350 r FQQi = " T F3J " THENFL =- 1 : FORX= 1 TO200: 
NEXT : GOSUB2 1 000 

11351 IFQOt=TF3r , THENQ*=ftlGHrt(SRiCSRx) 
.1 3 

11352 IFQQt - tF3 1 THENSRiCSRx 3=LEFT*CSR* 
<SRx l.CLENCSRKSRx 1 1-1 3): GOTO 11 330 

11355 IFQQ*="tF43 THENFL =1 : FORX = 1TO200: N 
EXT:GOSIIB71000 

11356 IFQQ* - "( F4*3 ' THENGOSUB2 1 300 - X =8 : GOS 
UB20000: PRINT 1X2'' i GOTOl 1375 

11360 IFQQtO 1 flNOQQiO' X 'ANOQQtO "2"TH 
EN11330 

1 1370 GOSUB2I 280: GOSUB21300: GOSUB20000: P 
RINTOQ*:FL=0 

1 1371 IFLENCQ4 3 = 1AND0* <>QQ$THENQi =Q»+QQ* 
:GOSUB2U00:Qt = " " 

11375 IFFL = 1 THENQQ* = "H" 

1 1390 SRtC SR* l-SRiCSR* 1*QQ$: GOSUB21400 

H400 FL=0: GOSUB21800: IFLENCSRi CSR* 3 301 

3THEN11330 

11410 X=4 = Y =22: GOSUB20000: PRINT 'IREU3 Gfl 

RDERING F3 - NY KUPON F? 

11420 GETQQ*: IFQQt=""THENl 1420 

11430 IFQQi-"CF3J"THEN11340 

11440 IFQQ4 = ' E F7 3 " THEN1 1310 

11450 IFQQ* = "f1"THEN10200 

11160 GOTO11120 

U925 IFOQi = "f1"THEN10200 

11970 X-4: V = 22: GOSUB20000: PRINT"tREU3 CE 
3NKELTRC KKER - C S 3YSTEt1RC KKER * 
11980 GETOQi: IFQU4= "THEN11980 
1 1385 IF0O*="E THENFL=0:GOTO27800 
11387 IFOQ*="S THENFL =l:GOTO27000 
11998 GOTOl 1 980 

12080 Rttfxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
12001 RETI TlLFfLOIGE RC KKER BILLEDE 
I 2003 REftxxxxxxxxxxxxxnxxxxxxxxx xxxxxxx 
12010 PRINT T CLR J " 

12020 X?0; Y-0;GOSUB28000:PRINT "CREU] ANT 
AL TILFt LOIGE RC KKER " 

12025 X=26: Y=0:GOSUB28000: INPUTQt; IFQt = " 
M THEN 10200 

12026 ERX-UALtQ* K IFER*<lQRERx> 1 000THEN1 
2010 

12030 X=0: Y=2:GOSUB20000:PR1NT* [ 7S/C3CC/ 
R3C30S/C3C C/Sl" 

12040 X=0: Y=3:GOSUB20000iPRINT RK .NR. CS 
✓B3TAST FORHOLDSMC SSIG FORDEL ING : C S70 3 " 
12100 X=0: Y=4:GOSUB20008:PRINT 'KAriP NRC S 
/B3E2SPC3U5SPC3XC5SPC32C 15SPC3CS7B3 
12120 X=0i Y^5:GOSUB20000: PRINT' f 7S/C3CS/ 
♦ JC 30S^C3CC/UJ 

12130 F0RY=6T022:REP1 NORGE 6T021 
12110 X=8 = GOSUB20000: PRINT C REU3 E GR33C 6S 
PCK BLK3t 6SPC3E GR33 t 6SPC K BLK 3L 12SPC3" 
12158 NEXT 

12160 PRINT C LTGRN3 " 

12170 X-l:FORY=6TO8:GUSUB20000:PRINTY-5 
f 3SPC 3 E 3 " SPC (30 ) " C S/B 3 



12175 NEXT 

12180 X=0: Y=9:GOSUB20000:PRINr t 7S/C3CS/ 
-OL30S/CJCCU3'' 

12190 X = I : FOR Y = 1 8T0 1 2 : GOSUB20 000 ! PR J NTY- 

6 "C 3SPC3L 5/8 3 SPC C 30 )"t S/BJ" 
12195 NEXT 

12200 X=0: f = l3:GOSUB20000: PRINT C7S/C3CS 
✓+]t30S/CK OU3'' 

12210 X=i:FORY^irOl6:GOSUB28000:PRINTY- 

7 "t3SPC]CS/8l SPEC 38 3 CS/-83' 
12215 NEXT 

12220 X-B: Y=t7:GOSUB20000: PRINT t 7S/C3CS 
./t3l30S/C3CC/UJ" 

12230 X=0: F0RY=IST02l : GOSUB2000B: PRJNTY- 

8 "X 3SPCK S/B J"SPCC30 3 CS/0 3 ' :REf1 NORGE 
I8TO20 

12235 NEXT 

1 2240 X=0: Y=22: GOSUB20000: PRI NT*'( 7S/C3C C 

✓E3t30Sye3CC/Xr 

12250 PRINT C LTGRN3 

12300 REftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

12301 REM iNOTASr FORDELING 

12303 REfixxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

12310 R-l: F0RY=6T021:X=8 

12315 IFY=9ORY=13ORY=17ThEN12350 

12320 GOSUB20000: INPUTQi: R I CR 3^UALCQi):X 

-14 

12330 GOSUB20000: INPUTQt:RXCR 3=UALCQi3=X 
^20 

12340 GOSUB20000: INPUTQi: R2CR 3sUfU_(Q* 3 = R 
=Rtl 

12350 NEXT 

12400 REM**** xxxxxxxxxxrxxxxx xxxxxxxxxx 

12401 R£f1 BEREGNING AF RC KKER 

12483 RW*xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
124 10 GOSUB12500:FORI=lTOERx: ER*CI)=' 'cF 
ORI I=1T013 

12420 R=R1 C 1 1 3tRXC 1 1 3tR2C 1 1 ): TF ■ INT CRNDC 

I )»R3+1 

12425 1FR=0 IHENR =3; Rl C 1 1 3 = 1 ; RXC 1 1 3=HR2C 

II 3 = l:TF = INTCRNDCl 3^33*-l 

12430 IFTF<=R1 1 1 I 3FHENERK I 3-ERSCI )*"r 
12440 IFTF>R1C1I 3ANOTF<=R 1 C 1 1 3+RXC I I 3THE 
NER4CI J=ER«CI )*"X M 

12450 IFTF>R1 C 1 1 3 »RXC 1 1 3THENER4C I 3=ER4tI 

H"2" 

12460 NEXfl I: GOSUB12600:NEXT1 :GOTO18200 

12500 RLWxxxxxxxxxxxxx-xxx-kxxxxxxxxxxx** 

12501 REM PRINT 'UINDUE" - SUBROUTINE 
12503 REnxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

12520 X=26: Y=7:GOSUB20008: PRI NT ' C 2SPC 3BE 
REGNING ' 

12530 X=26: Y = l 1 : GOSUB20000: PR INT "I 2SPC3R 
C K K E " 

12540 X=29: Y = l 4 : GOSUB20000: PRINT "C S/U3C 4 
S/CKSsl)' 

12550 X = Z9: Y = 15: GOSUB20000: PRINT "C S/B3C 4 
SPC3CS/B1* 

12560 X=29: Y^16: GOSUB2000B: PRINT" t S/J 3t 4 
S/C3LS^K3**:RETURN 

12600 R£[lxxxmxxxxxxxxxxxx*xxxxxxxxxxxxx 

12601 REM TCLLER - SUBROUTINE 

12603 R£f]xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

12610 X=32:Y=15 

12620 IFI>9THFNX=X-1 

12630 IFI>99THENX-X-1 

12640 GOSUB2000B:PRINTI;RETURN 

17150 ONQ=<GOTO17200 . 17300 

17300 REWxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

17301 REM SYSTEHRC KKER P3 SKLRM 

17303 Rttfxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
17310 FORI a 1 rOSRx: PR1N T "C CLR3C REU3 SYSTE 
MKUPON NR. *I;GOSUB28030:FORII-ITO13 
17320 QQt =f1IPt CSRiC 13,11,1) 
17330 IFQG*= A 'THENXt= ' 1 " - G05UB2 12001 60S 
UB20800:GOSUB20000: PRINTX5 



17335 IFQQ4- "ft THENX*= X ":GOSUB?t200;6OS 
UB20900: GOSUB70000:PRINTX*: GOTO17370 
17310 IFQQi^'B THENX*='l~;GOSUB21200:GOS 
UB20808: GOSUB20000: PR INTX* 
17315 IFQ0*='B rHENX*= , 2~:6OSUB2l700:GOS 
UB20800: GO5UB28000: PRINTX4: GOrO173?0 
1 7350 IFQQ* = C THENXt : "X " I GOSUB21 200: GOS 
UB20800: GOSUB20000:PRINTX* 

17355 IFQQ*= C"THENX*='2 : GOSUB21200: GOS 
UB20800: GOSUB28000: PRINTX*: GOTO17370 

17356 iFQQt='H"rHENGOSUB21200:GOSUB20G08 
: GOSUB200B0 : PR J N T "I X2 ■ : GOTO 1 7370 

1 7360 GO SUB 2 1 200 : GOSUB20800 : GO5UB20000: P 
RINTQQ* 

17378 Xi="-!NEXTII 

17380 X= 14: Y=22: GOSUB20000: PRINT"! REU] T 
RVK EN TflST " 

17390 GETG*: IFQi ~ ' THEN17380 
17400 NE*TI 
17-110 GOTO10700 

10400 RCftxxxxxXxxxXxxxxxxxxxxxxxxxxxxxx 
18401 REI1 LOfiU SYSrFflRCKKER - DISKETTE 
18403 Ri.^xxxxrxxxxxxxxxxxxxxxxxxxxxxxxx 

18103 GOSUB20R00 

1Q410 X=06:V^?2:GO5U020000:pRlNr C REU1 I 
NDTflST FILF NflUN " 

I8420 X=25:Y=22:GOSU320080: INPUTNfli 
18430 GOSUB20600--OPFN1 .8 ,2. "0: +NA$+'.S, 

R" 

18440 INPUTai .srx 

18450 FORI = ITOSRx: [NPUT»1 ,SRi( ! )! NEXT 
18460 CLOSE l: GOTO I 0200 

18500 REMxxxxxxxxxxxxxxxxxxxxxxxxxxxxx* 

18501 RED LOAD SYSTErtRt KKER - KASSETTE 
18503 REtlxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

18505 GOSUB20600 

18510 X-96: Y=22: GOSUB280«0:PRINT C REU] I 
NDTAST FILE NAUN 

18520 X = 25: Y=22:GOSUB20000: iNPUTNfl* 
18530 BOSUB20fi00:OPENl.l .0.NAI 
18540 INPUr»l ,SRx 

18550 FORI=lT0SRx: INPUT* 1 .SR1C 13: NEXT 
18560 CLOSE 1 : GOTO18200 

19400 REtfXXXXtXXXXXXXXXXXXXXXXXXXXXXXXX 

19401 REI1 SAUE SYSTEMJRC KKER - DISKETTE 
19403 Rlftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

13405 GOSUB20600 

19410 X=fl6: v=?2:GOSUB20000:PRINr'[REU] I 
NDTAST FILE NftUN " 

19420 X=25: Y=22:GOSUB20000: INPUTNfl* 
19430 GOSUB20600:OPEN1 .8 .2. 00: +NA*+" r S 

M ' 

19448 FR IN T« 1 ,SRx 

19450 F0RI = lTOSRx: PRINT* 1 .SR*C I ):NEXT 
19460 CLOSEi:GOTOl0200 

19500 REWxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

19501 REfl SflUE SYS TET1RC KKER - KA5SETTE 
19503 PF!1»««i>.««i«i« «muii i i r i t , , i , . 

1350'> GOSUB20680 

19510 X=06: Y=22:GOSUB20000: PRINT EREU3 i 
NDTAST FILE NAUN " 

19520 X=25: Y=22:GOSUB20000: INPUTNHi 
13530 GOSUB20600:OPEN1 ,1 ,1 .NAt 
19540 PRIMT"1 ,SRx 

13550 FORI = irOSRx: PRINT* 1 .SRUI):NEXT 
19560 CLOSE 1 : G0T01 0200 
13933 G0T013939 

20725 (FER*< 1*1 J a" "THENRETURN 

21 008 RfriniiituriiiinimuinrrHn 

21001 REfl GAROERINGSCIARKERING 

21003 REtyxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21010 X=20: Y=O=GOSUB20000 

2 1 020 I FFL <0THENPR INT HALUGARDER INGI 1 1" 

21030 TFFL=0THENPRINT T 16SPC3 ' 

21040 IFFL>0THENPRINT 'HELGAROERINGI III": 

FORI =1TO500:NEXI 

21050 RETURN 



21 100 RE^xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21101 REM CHECK HALOGARDER ING 

21 103 RZWxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21110 !FO*t 1X '0RQ*= XI *THENQQ4= "A" 
21120 IfQi ="12 ORQt= 21 THENQQ*= "B" 
21130 IFQt - X2 ORQ* = 2X"THENQQ$= *C 
21140 RETURN 

21200 R^xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21201 REH FIND KUPONPOSI TION CX) 
21203 Rtnxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21210 X=9 

21220 IFQQ* - 'X" THENX =X+ 1 
21225 IFXi='X'THENX=X+l 
21230 1FQ0*= 2 1 THENX =Xt2 
21235 IFXi= '2'THrNX=X+2 
21210 RETURN 

21300 REflxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21301 REM FIND KUPONPOS I T ION CY) 

21 303 R€ftxxxxx*xxxxxxxxxxxxxxxxxxxxxxxx 

21310 Y=LEN(SR*CSRx 1 )>6 
2 1 320 IFLFNl'SRit SRx ) 3>2THENY=Y+1 
21330 IFLENCSRtCSRx ) ) >5THENY=Y* I 
21340 IFLFN(SR*(£Rx ) )>8THCNY=Y+1 
21350 RETURN 

21400 REHxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21401 REM ANTAL SYS TEMRE KKER 

21403 REftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21410 IFQQ*- H" TWENFfl =3- G0T021 440 

21420 [FQQ*=A ORQQ*= B"ORQQ*= C THEN FA 

=2:GOTO21440 

21438 FA = 1 

21440 SR=SR*FA:XT29:Y = i8;GfJSU0200B0;PRIN 
r-(S7UlC7S^CJtS/n" 

21450 X^29: *=\3i GOSUB20000: PRINT CS/B] A 
NTAL rS/BT' 

2 1 460 X=29: Y=20: GOSUB20000: PRI NT '[ S/BK 7 
SPC3IS/B] 

21170 X=23: Y;2I : GOSU620800: PRINT '[ S/J It 7 
S/C3CS7K3 * 

2 1 480 IFSR>288ANDSRO5l2ANDSRC)l024THENX 
--31 : Y=20: GOSUB20000: PRINT 'FEJLl " 
2 1 4 8 1 I FSR >788AND SR <>5 1 2ANTJSR C > 1 0 24 THENS 
R^-SRx - 1 : SR*(SR5<+ 1 )- : FOR I =1 TO 1580: NEXT 
21490 IFSR>288ANDSRO512ANDSRO1024THENG 
0T01 1310 

21495 X=31: Y=20:GOSUB20000:PRINTSR 
21499 RETURN 

2 I 506 REM****"* x xxxxxxxxxxxxxxxxxxxxxx 
21501 REM RETTE I RC KKEINDTASTNING 
2 1503 REftxxxxxx xx xxxxxxxxxxxxxxxxxxxxxx 
21510 SRtCSRx 1 =LEFT*< SR*( SRx 1 , f LENCSR4C5 
R9i )W3 ):GOSUB 2 1600: RETURN 

21600 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21601 REM 9LETTE TEGN PI KUPON 

2 1603 RE^xxxxx xxx xxxxxxxxxxxxxxxxxxxxxx 
21610 (JQi= .GOSUB21200:GOSUB2I300:GO5UB 
20000 

21620 I FSR* - IN r CSRx/2 1*2=0THENPRI NT T BLK 

H REV 11 3SPCU LTGRN J i RETURN 

21630 GOSUH70000: PRINT T GR3H RCU1 C 3SPC.1C 

LTGRN] 

21640 RETURN 

21700 Rtnxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21701 REM RETTE SYSTEMTOTAL 

7 1703 REftxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

21710 Tt-RI6HTifSR*rSRxT.l 3 

21720 IFTi^ A 'ORTt^ B ORTt ^ C THENSR=SRy 

2 

21730 tFTt= H' THENSR=SR/3 

21740 X=30: V=20:GOSUB20000: PRINT f 6SPC ] 

71750 X=3l: V=?0: GOSUB20080: PRI NTSR: RETUR 
N 

27000 REnxxxxx xxx xxxxxxxxxxxxxxxxxxxxxx 

27001 REM UNDERS-tG GEUINSTER 

27003 REttxxxxxx*xxx*xxxxxxxxxrxxxxxxXXX 

27005 PRINT 'ICLRJ' 

27010 E^0:F^0: G-0:H=0 



27020 IFFL =0 rnCNFORC = 1 TQFR*: 5U -0: PR I NT t 


17010 


78 


12100 


1 1 


12120 


65 


HOnJLREUlRCKKE NR.: C t OFF 3 " 


I2130 


138 


12110 


58 


12150 


130 


27021 IFFL = 1TUENFORC = 1TOSR*:SU--0:PRINT £ 


121 60 


U8 


I2178 


150 


12175 


130 


HOI1UREUJKUP0M NR.: T [ OFF 3 ' 


12180 


69 


12190 


237 


17195 


1 30 


27030 FORDMT013 


12200 


112 


12210 


246 


12215 


130 


27010 (FFL^0tHtNrE*=niDt(tR*(C).D.l ) 


12220 


116 


12230 


232 


12235 


130 


27011 IFFL - 1 THEN TF4 - MID** (SRMC 1 .1' , ! ) 


12210 


80 


I 2250 


I 18 


12300 


123 


27050 GE*-IHM.CL"R*t01.D.l) 


I 230 1 


128 


I 2303 


123 


12310 


1 80 


27060 tFre*^GC*rHEN5U--SUH 


12315 


179 


12320 


249 


12330 


29 


27061 IFTE*- ft ANDGEtO 2 THENSU^SU+1 


12310 


108 


12350 


130 


17100 


123 


27062 tFTEt- 3 IND&EiO X THENSU-=SUtl 


I 2101 


225 


12103 


123 


121 1 0 


1 37 


27063 IF TE C -ftNUGEiO -1 'THFNSU-=SU+1 


12120 


81 


12125 


209 


12130 


18 


2706*1 TFIE* = H THENSU-SUM 
77070 NEXT 


I 2110 


208 


I 2150 


150 


12160 


113 


12500 


123 


1 2501 


22 


12503 


123 


27080 If SU-13rHENGHE)'C;E-Eti;GO5UB77*l0 


12520 


1 75 


12530 


81 


12540 


153 


0 


12550 


211 


12568 


90 


12600 


123 


27090 IFSU = l?rHENG2(F )'C:F=F*I :GOSUB2710 

0 


1 2601 


10 


1*2603 


123 


12610 


26 


12620 


163 


12630 


220 


12640 


99 


27100 IF5U-1 1 rut NG3E G )-C: G^G+L : GOSUB2710 


17156 


177 


1 7300 


1 23 


17301 


213 


0 


17303 


123 


17310 


188 


17320 


I 7 


27110 ir-5U-10rilEMG'MH)-C:H=H+t:GOSUB2740 


17330 


3' 


17335 


67 


17340 


88 


0 


17315 


30 


17350 


1 28 


17355 


31 


27130 NEXT 


I 7356 


201 


1 7360 


119 


17370 


132 


27110 IFFL ~0 IHl NPRINT 7 CLR3I REUl RtKKENR 


I 7380 


147 


17390 


210 


17100 


203 


. MEU 13 R I & r r GE : [OFF] 


I 7110 


121 


(8100 


I 23 


I 810 1 


120 


27111 IFFL = I rHENPPIN 1 '( CLRlt REU] KUPONNR 


1 8103 


123 


19405 


I 33 


181 L0 


229 


. MED 13 RJGTIGE: I OFF]" 


18120 


69 


18" 30 


I 15 


18140 


171 


27150 FORX=0rO10 


18150 


85 


181&0 


1 35 


I85R0 


173 


27160 IFGlCX)<>0THENPRINTGifX3.:GUX]^0 


I 850 I 


127 


18503 


1 23 


18505 


133 


27170 NEXT: PR I NT 


18510 


229 


18520 


69 


18530 


39 


27180 IFFL=0rHENPRiNT T REU3 Rl KKENR . MED 


18510 


171 


18550 


85 


18560 


1 35 


12 RIGTIGE' f OFF} 


I 9100 


123 


L9101 


135 


19103 


123 


27181 IFFL-1 THENPRINT [REU3 KUPONNR. MED 


I 9105 


133 


19110 


229 


19120 


69 


12 RIG UGE>f OFF] 


19130 


181 


13140 


131 


19*50 


105 


27130 FORX=0roi0 


19160 


1 35 


19500 


123 


1 950 1 


112 


27200 IFG2CX)<:>0rHENPRINTG2fX3,;&2rx ]=0 


1 9503 


I 23 


19505 


133 


J95I0 


229 


27210 NEXT? PRINT 


19520 


69 


19530 


10 


1 9540 


I9l 


Z?2?Q IFF! "0TIIENPR1NT f REV! RtKKENR. MED 


19550 


105 


19560 


L35 


1 9999 


1 59 


U RIG T IGE : I OFF 3 ' 


20725 


230 


21000 


I 23 


21001 


53 


27221 IFFL = 1 THENPRINI TREU1 KUPONNR. MED 


21003 


173 


-21010 


1 85 


21 020 


165 


11 RI&T [GE- f OFF 1 


21038 


131 


21010 


78 


21050 


I42 


27230 FORX=0ri310 


21 100 


123 


2M&I 


235 


21103 


1 23 


27210 IFG3tXK>0r|iENPRINrG3lX J.--G3CX )=0 


21110 


L99 


21 120 


121 


21 130 


203 


27250 NEXI :PRINI 


21 110 


112 


21200 


I 23 


21201 


187 


77260 irri.-0IHENPRINI IREU3 RC KKENR . MED 


21 203 


I 23 


21210 


66 


21220 


I3l 


10 KIGT IGE : ( OFF] 




57 


21230 


91 


21235 


20 


27261 IKFL-1THENPRINI 7REU3 KUPONNR. MED 


21210 


112 


21300 


123 


21301 


188 


10 RIG1 IGEiCQFFr 


21303 


123 


2I3I8 


227 


21320 


76 


27270 FORX : 0TQ10 


21330 


79 


21340 


82 


21350 


142 


27280 IFG1TX K>0THENPRINTG4rX1.:&1CX 3"8 


21100 


123 


21101 


251 


21183 


123 


27290 NFXf. print 


21110 


96 


21120 


213 


21130 


106 


27300 X^O; •'-20:GOSUB2080R.PRINTST»:FL=0 


21140 


79 


21150 


40 


21160 


80 


27310 X - 10- v = 22: &OSUB20000; FRINT" T REU] F 


21178 


215 


21180 


32 


21181 


23 


RfK EN TrtSf 


21190 


120 


21195 


70 


21199 


112 


2?32td GE IQ4 " ITO* - THFN27320 


21 500 


123 


21501 


135 


21 503 


123 


27330 GO TO 10200 


215L0 


108 


21 600 


113 


21601 


72 


27100 K ^20. v=0:CiaSUB20000- p RINT TRE'J) & 


21603 


173 


21610 


238 


21623 


86 


F U I N S T :FORX = l IOBB0:NEXT 


21630 


60 


21610 


112 


21700 


123 


27410 X--70: Vr0: G oSUB20000; PRINT [ 15SPC)" 


21701 


188 


21 703 


123 


21710 


133 


: RE PJRN 


21720 


125 


21730 


L98 


21740 


161 




21750 


M 


27000 


L?3 


27001 


250 


•CONTROL SUM POR T I PSPROGRAM 2 


27003 


123 


27005 


112 


27010 


80 




27B20 


118 


27021 


138 


27030 


176 


I0IM0 216 (1300 123 11301 165 


27010 


76 


27011 


91 


27050 


131 


11303 123 11318 5a 11315 236 


27060 


46 


27061 


60 


27062 


99 


11320 138 11330 135 11335 162 


27063 


61 


27061 


10 


27070 


130 


11310 22 11311 252 11350 91 


27080 


8 


27090 


1 1 


27100 


11 


11351 216 II352 19 1 1 355 113 


271 10 


17 


27130 


130 


27140 


I5 


113313 199 11368 MI 11370 63 


27111 


21 


27150 


192 


27160 


I0 


11371 08 11375 171 11390 168 


27170 


85 


27180 


123 


27181 


129 


11100 92 11110 117 I1428 I3S 


27190 


192 


27200 


13 


27210 


85 


11130 189 11110 \m 11150 16 


27220 


122 


27221 


128 


27230 


192 


11160 I29 II925 *K H970 1 16 


27210 


16 


27250 


85 


27260 


I2l 


11980 116 II 933 99 11997 111 


2726 1 


127 


27270 


195 


272B0 


19 


■ U990 110 I2000 I73 I7O01 169 


27290 


85 


27300 


230 


27310 


143 


12003 123 12010 112 17020 71 


27320 


235 


27330 


121 


27400 


209 


12025 235 12026 215 12030 16 


27110 


89 
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FORHANDLEROVERSIGT 



Kobenhaun 

FONA COMPUTER CENTER 

Ilium, 4 sal 
Ostofgade 52 
1001 Kobenhavn K 
TeH. 01-144002 

MAGASIN DU NORO 

Computer 
Kgs Nylorv 13 
109S Kobenhavn K 
Tell. 01-114433 

FONA 

Qstergade 47 
1100 KoCanhavn k 
Tetf 01-159055 

FONA COMPUTCfl CENTER 

Skmdergade 41 
1 159 Kobenhavn K 
TeH 01-110707 

ANVA 

Ure- og fotoaf deling 
Vesler&rogode 2 E 
'620 Kobenhavn V 
TelT 01-151215 

FONA 

VesierDrogade 62 
1620 Kobenhavn V 
Tell.. 01-249300 

BETAFON RADIO l/S 

Isledgade 79 
1650 Kobenhavn V 
Tell 01-31Q273 

FONA 

Gl. KongeveJ 115 
1850 Kobenhavn V 
Tell. 01-210893 



Storkobenhavn 

FONA 

Fatkoner Alie 56 
2000 Fredenksberg 
Terf 01-352122 

COMMANDER RADIO 

Smallegade 2 
2000 Fredenksberg 
Tell 01-343422 

DCC DANSK COMPUTER CENTER 
A/S 

c/o Alliance 
Bryggervangen 37 
2100 Kobenhavn 0 
TeH 01-857555 

B.N. ELEKTRONIK 

Haraldsgade 69 
2100 Kobenhavn O 
Tell 01-184555 

MIBOLA MIKROOATA 

Osterbrogade 25 
2100 Kobgnhavn 0 
Tell 01-421966 

FONA 

Osterbrogade BO 
2100 Kobenhavn & 
Tell 01-421010 

RIACT A/S 

Osterbrogade 95 
2100 Kobenhavn 0 
Tell. 01 -380500 

B.N. ELEKTRONIK 
Lundlottegade 135 
2200 Kobenhavn N 
Tell. 01-854755 

FONA 

Norro brogade 34 
2200 Kobenhavn N 
Tell 01-377788 



FONA 

Norrebrogade 174 
2200 Kobenhavn N 
Tdf.: 01-830345 

COMK0B 

Ryesgad* 3 

2200 Kobenhavn N 

Tell.: 01-357511 

FONA 

Arnagerbrogade 49 

2300 Kobenhavn S 
Telf.: 01-572131 

FONA 

AmagBrbrogado 126 
230O Kobenhavn S 

TeH 01-55360O 
FONA 

Sundbyveslor Plads 1-3 
2300 Kobenhavn S 
Tell 01-559662 

FONA 

Fredenkssundsve) 38 
2400 Kobenhavn NV 
Tori.: 01-190188 

LAMIFI DATA 

Soishnjenten 33 
2500 Valby 
Tell 01-163299 

FONA 

Valby Langgade 56 
2500 Valby 
Tell _ 01-163045 

B.O. SOGER 

Glostrup Centret 
2600 Glostrup 
TaH.: 02-454585 

FONA 

Hovodvejan 85 
2600 Glostrup 
Tert 02457077 

DT1-GRUPPEN 

Naveriand 2 
260O G los If up 
TeH ■ 02-632444 

IMERCO A/S 

Smedaland 22 
2600 Glostrup 
Tell ! 02-962244 

KFH-S0FT 

Sienager 195 
2600 Glostrup 
Tell 02-469909 

8,0. B0GER 
Rodovre Gentrel 
2610 Rodovre 
Telf 01-410485 

FONA 

Rodovre Centrum 131 
26 10 Rodovre 
TeH 01-411777 

APL DATA 

Morbesrhaven I'S-S 
2620 Albertslund 
Tell 02-631657 

BERKEL A/S 

Roskildevet IB 
2620 Albertslund 
Toll. 02-647888 

FONA 

City 2 ■ 206 
2630 Tastrup 
Tell 02-521525 

POULSEN COMPUTERC6NTER 

Dly 2 - 301 

2630 Tastrup 
Telf.. 02-990977 



B.I F. A/8 

Horskaetlon 6 
2630 Tastrup 
Tell 02-526520 

FONA 

Isho) Bycenler 32 
2635 Ishoj 
Telf 02-730233 

tSHOJ BOGHANDEL ApS 

ishoj Bycenter. Store Torv 10 
2635 Isnoj 
Torf 02-73991 1 

BILKA 

Radio/TV afdalmg 
blletorv 1 

2635 Isha] 

Totf 02-736333 

ISHOJ VIDEO CENTER ApS 

Vejlebrovei 64 

2636 Ishoj 
Tert. 02-437307 

FONA 

Hvldovro Slalionscenter 37 
2650 Hvldovro 
Telf 01-47)621 

FONA 

Strandmarksvej 20 
2650 Hvidovre 

TeH ; 01-490711 

FRIHEDENS BOGHANDEL 

Strandmarksvel 20 
2650 Hvtdovre 
Telf. 01-782241 

BILKA 

Radio/TV aldeling 
Cenierve). Hundie 
2670 Greve Strand 
Telf 02-905O0O 

JORGENSEN. EJNER EMIL 

G'ansangerve) 7 
2670 Grave Strand 
Tell.: 02-45381 1 

FONA 

Greve Cenier BB 
2670 Greve Strand 
Telf. : 02-900455 

FONA 

Hundte Storcenrer 96 
2670 Greve Strand 
Telf.: 02-900790 

JM-DATA 

Sandbekken 27 
2680 Solrod Strand 
Tert.: 03-144573 

JORGENSEN. KARL 

Hinbjerg 41 
2690 Karlslunde 
Tert.: 02-150085 

FONA 

Frodenkssund&vei 154 
270O Bronshoi 
TeH.; 01-282728 

FONA RADIO A/S 

18 

Frederikssundsvej 330 
2700 Branshoj 
Telt.: 01-28700O 

FONA 

Jembane Alie 39 

2720 Vanlose 
Te«. 01-743518 

FONA 

Heriev Bygade 28 
2730 Heriev 
Tell 02.946787 



KVICKLY 

Heriev Torv 30 
2730 Heriev 
Tell.. 02-841711 

FAXTA KONTORtNVENTAR ApS 

Skoviunde Byvej 8 
2740 Shovlundo 

Telf 02-848444 



FONA 

Cenlrumgaden 26 
2750 Balterup 
TeH 02-654455 

LOHSE ELEKTRONIK 

Brydegardsvei 3 A 
2760 Malov 
Tell. 02-9773O2 

B.N. ELEKTRONIK 

Lyngby Hovcdgade 9 A 

2800 Lyngby 
Tell 02-881900 



KOBENHAVNS V10EO CENTER 

Lyngby Hovedgade 19 B 
28 00 Lyngby 
Telf.. 02-876594 

FONA 

Lyngby Storconier 38 
28O0 Lyngby 
TeH : 02-871134 

B.O. 80GER 
Lyngby Sloreenter 54 
2800 Lyngby 
Terf. 02-870445 

CRAMER HANDBERG ApS, G. 

Gontoftogade 32 
2820 Geniotle 

TeH. 01-681660 



FONA 

Soborg Hovedgade 56 
2860 Soborg 
Tell 01-561765 

BUOOINGE RAOIO & TV 

Soborg Torv 3 
2860 Soborg 
Tell 01-696422 

JACOBSEN. FINN R. 

Ingeniorfirma 
Laurentsvej 28 
2830 Bagsvaard 
Telf 02-440488 

FONA 

Slrandvsjen 161 
2900 Hellerup 
Telf.. 01-611422 

PERIQRAF ApS 

J«gersborg Alie 14 
2920 Chanotteniund 
Telf. 01-644748 

FONA 

Hovedgaden 14 
2970 Horsholm 
Tell : 02-864166 

PHAR8ISAN ApS 

Horsholm Kongevej 32 
2970 Horsholm 
Tell. 02-868886 



Nordsjaslland/Bornholm 

LOKAL LVD OG BILLED 

Slengade 30 
3000 Helsmgor 
Tell 02-211106 



FONA 

Slengade 53 
30O0 Helsmgor 
Te«. 02-21O91B 
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HUMLEB/EK RADIO & TV 

Ny Strandvgj 60 
3050 Humiebaak 
Tell 02-191405 

B.N. PLASTICS 

Postbohs 61. Orby 
3200 Heismge 
Telf 02-306577 

NPM CONSULT 

HuiebaaKvej 5 
3320 SKacvmye 
Tell : 02-28B679 

FONA 

Slotsgade 25 
3400 HilleroO 
Tell 02-260133 

BO-EL DATA 

TamsOofgvej 19 
3400 Hillerod 
Telf 02-253131 

ALLEBOD BOGHANDEL ApS 

M D. Madsonsve) 6 
3450 Aflerod 
Telf 02-272770 

8IRKER0D BOGHANDEL 

Hovedgade 25 
3460 Birkerod 
Tell.: 02-B10165 

FONA 

Farum Bylorv 11 
3520 Farum 
Tell 02-955068 

U.I B ELECTRONIC & DATA INC. 
ApS 

UHevangsve) 3. Accaclelorvet 
3520 Farum 
Tert.. 02-955170 

RA.STRONICS ApS 

Femstykket 6 
3540 Lynge 
Tell.: 02-188006 

FONA 

Havnagade 21 A 
3600 Fradenkssund 
TaH,: 02-311515 

J.O.N. DATA 
MeiseveJ 5 
3600 Ffederikssund 
Te«.. 02-312282 

DANSK 

KONTORMASKINEUDLEJN1NQ l/S 

Moltebakken 7 
3600 Frederikssund 
Tell.: 02-315370 

KONTOfl- & DATACENTER 

S1randve(en 2 
3600 Fredenkssund 
Telf.: 02-311010 

HANSENS RADIO A TV. KROQM 

AarsbaHe 
37(10 Ronne 
Telf.. 03-996127 

LAUENBORG, ASGF.R ApS 

Oxholmvej 5 
3760 Gudhjem 
Telf.: 03-998085 

FOROYA, MICRO DATA, P/F 

Krosslid 1t 

3800 Torshavn , Fasrcerne 
BOKABUDIN 

Box 78 

3850 SaHangara. Fasroerne 
Telt 04-247878 

godthAb ELEKTRONIKSERVICE 
ApS 

Postboks 2 

3900 GotlihaD, Gronland 

Telf.: 29-922522 

JULIANEHAB CDB'Center ApS 

Bo* 160 

3920 Jullanefiab, Grenland 

Toll 29-938237 



MUSIKHUSET JULIANEHAB ApS 

Box 160 

3920 Jullanehab. Groniand 
Tall. 29-938133 

Syd- og MidtsjfSlland 

FONA 

Algade 12 
4000 Roakilde 
Telf. 02-366633 

QATAR INQEN 

Tune Cenlret 
Amestien 12 
4000 Roskild* 
Tall.: 02-139100 

DATRONN A/'S 

Bredgade 23 
4000 RoskikJe 
Tell 02-357071 

FLENSBORG BOGHANDEL A/S 

Srajridertorvel 4 

4000 Roskilde 
Toll. 02-350008 

FLENSBORG A/S, AHRENT 

Ski Hansgade 9 
4100 Rlngsied 
Tall. 03-610011 

HELWEG OOGER 

Vestsjasllands Can tat 
4200 Stegelse 
Tell 03-520059 

FONA 

Veslsjaaliands Cenler 15 
4200 Slagelse 
Tell ■ 03-520916 

FONA 

Ahlgade 61 
4300 HolBfflk 
Tail 03-437510 

HOLBAEK KONTORFORSYNIMG 

Labaak 6 
43C0 Holbask 

Tell. : 03-430775 

KS DATA 

Lergravsvej 71 
4300 Holbask 
Tell.. 03-430016 

papirqAroen A/S 

Studieslrasde 
4300 HolbaBk 
Tell. 03-433003 

KOCHS BOGHANDEL l/S 

Kordilsgade 9 
4400 Kalundborg 
Telf.; 03-610054 

ASNffS BOGHANDEL ApS 

Csnlanorvei 
4550 Aanass 
TeH 03-450014 

FONA 

Norregade 1 
4600 Koge 
Tall.. 03-650088 

BKC KONT0R. CENTER ApS 

Vordingborgvoj 69 
4600 Koge 
Tell 03-683221 

LERCHE'S RADIO A TV 

Bulikscenlrel Ejbovaj 
4632 Bjffivorsftov 
Tell 03-670910 

JD TOTAL INF OR M ATI ON - 
N*STVE0 

v/J.C. March 
Jernbanegade 7 
4700 Nasaivod 
TeH.: 03-726888 

FONA 

Set Peders Kirkeplads 1 
4700 Nasstved 
I Tatf.. 03-727122 



LANGES BOGHANDEL 

Torvegade 13 
4700 Nassrvcd 
Telf.. 03-720116 

BOO- 0G PAPIRCENTRET 

Algade 25 

4760 Vordingborg 

Tad.: 03-774246 

KRISTOFFERSENS BOGHANDEL 
ApS. V. 

Lille Tofv 

4800 Nykobing F 
Tatf 03-850255 

Fyn med omllggende 
oer 

ARENTSBAK BOGHANDEL 

KongenagBde 37 
5000 Odense C 
Tell 09-123808 

EDB BUTIKKEN 

Ntansanagada 8 
5000 Qdense C 
Telf. 09-147600 

FONA COMPUTER CENTER 

Voslergade 61 
5000 Odanse C 
Telf . 09-125808 

FONA 

Tarup Center 
5210 Odonso S0 
Telf 09-160123 

FONA 

R osengSrdscentrat 34 
5220 Odanse SO 
Tell.. 09-159766 

BOGT1K 

Rosengardscenirei 53 
5220 Odanse SO 
TBlf. 09- 15997.8 

BILKA 

Radio/TV afdeiing 
Niels Bohrs Alle 150 
5230 Odanse M 
Tell. 09-169020 

HANSEN, FREDDY 

Hans Schacksve) 6 
5300 Karteminde 
Teff : 09-321572 

ERICHSSENS BOGHANDEL, M.P. 

Langegade 27 
5300 Kertcrnmde 
Telf 09-321072 

EHLERTS BOGHANDEL 

Qsiergada '0 
5400 Bogense 
Telf.. 09-811055 

LUDV1GSEN, BflOR. 

Showej 30 

5690 Tommerup St 

Tell. 09-7S1235 

BACH KONTOR & DATA, JENS 

Freda nksgade 17 
5700 Svendborg 
Toll 09-212788 

LVTZEN5 BOGHANDEL 

Mollogade 18 
5700 Svendborg 
Tell. 09-210323 

HUMAN MANUAL 

Slotsallean IS. Tro-ense 
5700 Svandborg 
Tell. 09-227171 

FONA 

Voldgade 7 
5700 Svendborg 
TeH.: 09-211785 

UNDEGAARDS RADIO 

Kildevangen 66 
5750 Ringa 

TeH.: 09-622212 



BRANDTS KONTORFORSYNING 

5900 Rudkobing 
Telf 09-511575 



CHRISTENSENS EFTF. 
BOGHANDEL 

Ostergade 6 
5900 Rudkobmq 
Tell 09-511042 



Vest- og Sonderjylland 

BARKHOLT & BJEflRISGAAAD 
ApS 

Hsderslevve) 100 

BOOOKoldlng 
TeH 05-537600 

FONA 

Heliigkorsgade 2 
6000 Kolding 
Tell; 05-527755 

RS DATA 

Karen Blixensvel 
6000 Kolding 
TaH ■ 05-542811 

FOTOHUSET A/S 

Sondargade 4 
6000 Kolding 
Tell 05-520044 

EGTVED BOGHA.N0EL 

Sonde rgada 3 
5040 Eglved 
TeH. 05-551127 



FOTOHUSET A/S 

Bispegaoo 7 
6100 Haderslev 
Tall. 04-521319 



FOTOHUSET A/S 

Norrepofl '9 
6200 Abenrfl 
Toll. 04-626601 

BOJESENS BOGH, BO 

Ramsfiofred 28 
6200 Abenrfl 
Tall 04-623352 

FONA 

Ramsherred 41 A 
6200 Abenrfl 
Tell 04-622844 



SONDERJYSK ELEKTRQ A/5 

TondeFve) 2 
6200 Abenrfl 
Telf.. 04-623663 

WIESEL 0ATA 

Kirkegade 70 H|orlkfler 
6230 Rodeh»o 
TeH 04-666254 

KVICKLY 

Piantagavei 
5270 Tander 
TeH.. 04-723143 

JEFSENS BOOHANDEL, J.N. 
Storegade 5 
6270 fonder 
Tell 04-722341 



PADBORQ BOGHANDEL 

Norregade 16 
6330 Padborg 
Telf. 04-673108 

CLAUSEN B0GER 

Perlogado 8 
6400 Sonderbcg 
Tell 04-423800 



SONDERBORG BOGHANDEL 

Pe.'legade 15 
6400 Sonderborg 
Toll. 04-421622 



FONA 

69 

Pertagade 30 
6400 Sonderborg 
Telf 04-421013 
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FOTOHUSET A/S 

Perlegade 49 
6400 Sonderborg 
Telf. 04-423265 

VAMORUP BOGHANDcL 

Dstergade 1 
6580 Vomflrup 
Telf: 05-50 1081 

BIG DUTCHMAN A/S 

Park Alle 13 
6600 Vejen 
Telf . 05-360911 

STENO DATA ApS 

Park Alle 13 
6600 Vejen 
Tall.: 05-363264 

BRORUP BOQHANOEL 

Narregade 2 

6650 Brorup 
Tell 05-381196 

MIKRO DATA SYSTEM ApS 

Daaimvej 145 
6700 Esbjerg 
Telf.. 05-129300 

ANVA 

Kongensgade 25 
6700 Esbierg 
Telf.: 05-120133 

FONA 

Kongensgade 60 
6700 Esbjerg 
Ted 05-130133 

JASPERS RADIO A/S 

Kongensgade 66 
6700 Esbjerg 
Telf.: 05-121122 

ESBJERG BOGHANOEL 

Kongansgads 87 
6700 Esbjerg 
Telf 05-121177 

CHR1STENSEN A/S, CJ. 

Papir «n gees 
Kvaglundsvej 89 
6705 Esbjerg 0 
Telf 05-140700 

KVICKLY 

SemmarievB) 

6760 Ribe 

Telf . 05-421100 

KRISTIANSENS BOGHANOEL 

Vestargade 18 
6800 Varde 
Telf O5-22O040 

FREDERIKSEN A/S. S. 

Nymanflsgade 22 
6670 Qigod 
Tell ; 05-244966 

Telex 60177 sflab 

THEILGARDS BOGHANOEL - 
KONTORFORSYNING 

Torvef 2 
6870 Oigod 
Telf 05-244009 

MADS ENS BOGHANOEL, A.G. 

Storegade ? 
6880 Tarm 
Tuff 07-371544 

JACGBSENS BOGHANOEL 

Breogade 60 
6900 Skjem 
Telf . 07-351666 

KEHLET RADIO A TV 

Nygade 7 

6950 Nykobing Mors 
Telf . 07-320400 

HOLMS BOGHANOEL. N.P 

Algade 16 
6950 Ringkabmg 
Tell 07-321666 



Midtjylland 

BANG-P SOGER OG FOTO 

Golhorsgade 11 
7000 Fredencta 
Telf 05-921688 

FONA 

Golhersgade 12 
7000 Frederick 
Tell 05-922955 

FOTOHUSET A/S 

Golhorsgade 19 
7000 Fredsncia 
Telf.: 05-922454 

PAPIRKOMPAGNIET 

Prinsessegade 20 
7000 Frederic* 
Telf. 05-920555 

NU DANSK DATA 

Pnnsessegade 29 A 
7000 Frederleia 
Telf 05-933000 

VEST FOTO 

Vesicenter Venusvej 10 
7000 Frederic* 
Telf 05-933577 

THV HANDEL ApS 

Shovgardsparken 40 
7080 Barkop 
Telf 05-869066 

2R DATA SERVICE 

Brummersvai 10 
7100 Vojle 
Tell 05-831600 

DT1-GRUPPEN 

DTt Sollware A/S 
Horsenavej 39 
7100 Vejie 
Telf : 05-BI " 



DTI-GRUPPEN 

DTI-Ejendomssyslem A/S 
HorseMvel 39 
7100 Vejie 
Tell. 06-828888 

DTT-GRUPPEN 

DANSK TOTALINFORMATION A/S 
Horsensvej 39 
7100 VejlG 
Tell. 05-628888 

FONA 

Norregade 29 G 
7100 Vejie 
Tell 05-627288 

LANGGARDS RADIO & TV 

Radhusp&ssagen 

7100 ve|te 
Tell 05-633400 

FOTOHUSET A/S 

Ridhuslbrve! 2 
7100 Vejie 
Telf.. 05-822337 

R.C. ELEKTRONIK ApS 

Sonderbrogade 42 
7100 Ve|le 
Tell 05-832533 

PAPYRUS BOGHANOEL 

Torvegade 4 
7100 Vejla 
Te.1 : 05-820485 

BOG PA • SIKA A/S 

induslrlvej |, Poslboks 1060 
7120 Vejie O 
Telf 05-825122 

JUELSMINDE RADIO/TV ApS 

Qdelegade 14 
7130 Juei5"iinde 
Teff 05-693911 

BILLUND BOGHANOEL OG 
KONTORFORSYNING 

7190 Billund 
Toll 05-331300 



OTTESEN A CO. I/S. SOREN 

Bultkslorvef 25 
7190 Billund 
Telf . 05-331067 

DAMGARD JENSEN BOGHANOEL 

Burger gacte 17 

7200 Qrmdsied 
Telf 05-320152 

UNIVERSAL-DATA 

MaskinfatHikken Universal 
Hforvojen, Tosby 
7300 Jelling 
Telf - 05-881286 

BOLLERUP BOGHANOEL 

Storegade 50 
7330 Brande 
Tell 07-180500 

FONA 

Bredgade 17 
740O Horning 
Teff : 07-124455 

HER NINO BOG CENTER 

Herning Centrei 
7400 Herning 
Tell 07-220575 

OBSI 

Merkurvej 1 
7400 Herning 

Telf.: 07-220111 

HERNING ELEKTRONIK CENTER 

Siikeborgve) 8 
7400 Herning 
Telf - 07-225844 

ROSTRUM BOGMARKEO 

Osfergade 20 
7400 Herning 
Telf 07-126575 

HANSEN ELEKTRONIK ApS, O. 

Induslrlvej 24 
7470 Karup J 
Teff.: 07-101168 

STUDIO 7 
7500 Holslebro 
Tell.: 02-427777 

THOMSEMS BOGHANDEL. 
HILMER 

Norrogado 13 
7500 Holslebro 
Teff.. 07-420144 

FONA 

Norregade 30 
7500 Holslebro 
Teff 07-42561 1 

PECO C O MP UTER SYSTEM 

Struervej 61 
7500 Holslebro 
Telf 07-414666 

HELMHOLT ELEKTRONIK 

FarverveJ 2 
7600 Struer 
Tell: 07-852611 

NORGAARD RADIO, BRDR. 

Ostargade 11 
7600 Struer 
Teff.. 07-651755 

BUCHHOLTZ BOGHANDEL 

Vesfergade 14 
7700 Thiated 
Tell.: 07-920041 

MYGIND-DATA 

Vestergade 9 
7700 Thlaled 
Teff 07-924110 

THINGGARDS BOGHANDEL 

Bredgade 120 
776Q Hurup 
Telf 07-951042 

TV-HUSET 

Adelgade 10 

7800 Skive 
Teff. 07-520911 



SCHACHT, HANS 

Gi Skivevei 6. Sepsirup 
7800 Skive 
Teff 07-544075 

JUNGS BOGHANDEL 

Thinggade 1 
7800 SKive 
Tetf.: 07-523233 

HAN SENS BOGHANDEL, H 

Algade 10 

790O Nykobing Mora 

Telf.' 07-721777 



Ostjylland 

MAG AS IN 

Radio og TV afdelrng 
8000 Arhus C 

TeH.-. 06-123300 



FONA COMPUTER CENTER 

Banegardsgade 16 
800Q Arhus C 

Tetf.: 06-132222 

MIDTJYSK MIKRO CENTER IK AST 
ApS 

Bruunsbro 23 
8000 Arhus C 
TeH.: 06-183130 



CLEMENS DATABUTiK 

Clemens Torv 8 
8000 Ainus C 

TeM. 06-133922 

FONA 

Guidsmedogado 15 
8000 Arhus C 
Tetf 06-122777 

FONA 

M P. Bruuasgade 43 
8000 Arhus C 
Tetf 06-131857 



LARSENS BOGHANDEL. SVEND 

A, 

Sender Alio 6 
8000 Arhus C 
Telf. 06-125611 

FONA 

Sondergade 15 
8000 Arhus C 
Telf : 06-131724 

ADVISER 

Oslergade 30 
8000 Arhus C 
Telf 06-137700 

CITY VEST BOGCENTER 

City Vesi 
8220 firebrand 
Tetf 06-133922 

FONA 

City Vest 243 
8220 Brabrand 
Telf.. 06-253011 

RS DATA ApS 

Sindalsvej 31 
8240 RIsskov 
Telf.: 06-210066 

THV-ARHUS 

Skelbaskvej 37 
8240 Risskov 
Tell 06-174923 

LUX TIME 

Center 0s t 

8250 Ega 

Tetf. . 06-227433 

DENTAL PARTNER 

Knngelled 3 

TeH. . 06-224455 

STRUERS KS 

SkanderDO/gveJ 277 C 
8260 Viby J 
Tell 06-283400 
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METRO 

Sletv«| 36 

8310 Tranbjerg J. 

Tel!.. 06-291388 

KONTQRDATA ApS 

Vaster Aile l 
0362 Horning 
Tart 06-92151 1 

BOGCENTRET 

PO Centre! 
8370 Hadsten 
Tell 06-982239 

8 ILKA 

Agerove) 7. Tilsi 
8381 Mundeislfup 
Tell 06-241122 

NYGAAHD PEDERSEN DATA ApS 

Shnnsebakken 6 
B400 EbfSltOi! 
Tell . 06-344344 

HAMMEL KONTORMONTERING 

0siergade 7 
8450 Harnmol 
Tell 06-963128 

DJURS DATA ApS 

Nordhavnsve) I 
B5O0 Gronfi 
Tett. 07-222999 

DJURS DATA ApS 

Nordhavnsve) 1 
8500 Greni 
Tell.. 06-434200 

DJURS DATA ApS 

Ce ntratadmintslrallonen 
Nordhavnsve) 1 
8500 Greni 
Tell 06-326411 

MAN5EMS BOGHANDEL, VILH. 

Torvet 8 
85O0 Grena 
Tell . 06-321933 

vestehgAros radio a tv 

Tinflvej 30 
8543 Hornslo! 
Tell.. 06-995155 

KOUND BOGHANDEL 

Btedgad* 36 
8560 Kolind 

Telf.: 06-392077 

TOUGAARD KONTORMONTERING 

CM. den 8. Vu) 9 
8600 Stlkeborg 
Telf 06-623411 

GRAFFITI DATA 

System afd. 
Chf. den 8 Vej 58 
8600 SHkeborg 
Tell 06-822455 

VETAKS l/S 

Gronnmgen 11 
8600 SHkeborg 

Tell . 06-820154 

FONA 

Sondergade 17 



8600 SHkeborg 
Toll 06-825733 

LEHMANN RADIO a TV 

Sondergade 21 
8620 Kiellenjp 
Tefl. 06-882422 

SCHMIDTS BOGHANDEL J. 

Adelgade 82 
8660 Skanderborg 

Tett 06-520027 

PARK RADIO CENTER 

Dagmarcentrat 11 
8660 Skanderborg 
Telf 06-524000 

MIDTGARD radio 

Blumersgade 6 
8700 Horsens 
Tefl 05-628688 

BB ELEKTRONIK 

Kaltasund 7 

8700 Horsens 
Tetf 05-6247" 

JUST R .-DATA ApS 

Vesi 

Ndr Torstodve) 37 
8700 Horsens 
Te-tl 05-643000 

FONA 

Sondergade 
8700 Horsens 
Telf 05-628000 

SORENSENS BOGHANDEL, ERIK 

Sondergade 30 

8700 Horsens 
Tetf 05-611711 

LEHMANN RADIO S TV 

Grevene 14 
8800 viborg 
Tell 06-620586 

DJURS DATA ApS 

Jernbartegade 7 A 
SaOO Viborg 
Tell 06-625622 

FONA 

Set Malhias Marked 305 
6800 Viborg 
Telf : 06-625266 

KJ/ER'3 BOGHANDEL 

Set. Mathlasgade 29 
8800 Viborg 
Tall ; 05-613900 

KHI DATA ApS 

Jembartegade 4 
8840 Rodkeersbro 
Telf. : 06*59233 

BARK LING BOGHANDEL 

Storoga.de 7 
8850 Bj«rrlngbro 
Te-H. 08-681077 

STEFFENSEN. HENRIK 

Famkloverve) 6 
8900 Banders 
Tell. 06-439764 



JACOBSEN * SON BOGHANDEL, 
LARS 

Kirkegade 13 
8900 danders 
Telf 06-420116 

OBS! 

Morkurvo) 53, Paderup 
8900 Randors 
Tett 06-414255 

OANSK SKOLEOATA AVS 

Ofgelva| 34 
8900 Randors 
Tett 06-431679 

FONA 

R4dhus9traeae 13 
6900 Renders 
Tett 06-427533 

AVERY ETIKETTERING a/a 

TjffitDyvei 90 
8900 Renders 
Telf 06-427000 

DAN-WEI BEL. P. 

Torvagade 4 
6900 Renders 
Telf 06-420577 

Nordjylfand 

FONA COMPUTER CENTER 

Blspensgade 26 
9000 Aalborg 
Tett. 08-139229 

V EJGARDS BOGHANDEL 

Hadsundvflj 29 
9000 Aalborg 
Telf 06-166800 

LINDHOLM KONTORCENTER 
ApS. IB 

HattemagervB) 8 
9000 Aalborg 

Tell. 06-124844 

ANVA 

Nytorv 24 
9000 Aalborg 
Toll. 0£ 133000 

OK COMPUTER 

Vesterbro 50 
9000 Aalborg 
Tell 08-127444 

ENGSIG A/S, KNUD 

Bispensgade 7 
9100 Aalborg 
Telf. 08-126666 

IN-DATA 

Glmkavej 20, Frejslev 
9200 Aalborg SV 
Tolt. 08-343100 



H.C. ELEKTRONIK 
Gugvel 186 
9210 Aalborg SO 
Telf 08-142314 




SKOVEWERG RADIO 

Skomagergade 20 
9240 Mibe 
Tett 08-36 f 244 

O.T. DATA / RS-DATA NORD ApS 

Voidborgoade 17 
9240 Ntbe 
Telf 08-352100 

B0GLA0EN 

Ostergade 16 
9320 Hfoilerup 
Telf. 08-28*370 

OBS I 

Loftbrove) 17 
9400 Norresundby 
Telf 08-178122 

ENGSIG BOGHANDEL. KNUD 

Torvoi 3 

9400 Morresundby 

Tett 08-171077 

HOGH'S RADtO-TV-FOTO 

Ostergade 24 
9440 Abybro 
Tell 08-241699 

NIELSEN, LORENTZ 

Sioregade 14 
9560 Hadsund 
Tett.. 08-571833 

RABOL5 BOGHANDEL 

Norregade 14 
9640 Farso 
Tetf 08-631011 

BIRK. JORGEN 

Torvel 

9670 Logstor 
Telf 08-672226 

BALLE ApS 

Ostergade 25 
9670 Logstor 
Tetf 08-671566 

NOR AO ApS 

Lonslrup 
9800 H(ornng 
Telf 06-960168 

KONTOR-NORD ApS 

Sondergade 5 
9800 Hjornng 

Tetf 08-921545 

FJERNSYNSMAQASINET l/S 

Norregade 12 
9870 Sindal 
Teff 08-935389 



BILKA 

Radlo/TV-afrJelmgen 
Hobrove) 450, Skalborg 
9200 Aalborg SV 
Telf.. 08-182400 

FONA 

Nibevej 27 A. SkaJborg 
9200 Aalborg SV 
Telf. OB- 1843 10 



ENGSIG & S0N A/S, SVEND 

Danmarksgado 53 
9900 Frederlkshavn 
Telf 08-420666 

DAFOLO BOGCENTERJ 

□anmarksgade 78 
9900 Freoenkahnvn 
Telf 08-428100 
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SP0GELSESJAGT 
INDSENDT fir 

HENRIK LftRSEN 



TIL COMMODORE 64: 



1 PRINT TLTflLOirCLRr : UC=532i8: 5.1 =Sl27? 
=POKEUC*71 ,0 

20 DATA0,S1 .0.0.121.0.0.215.0.0.215.0.0. 
215.129.28,755.110.31 .187. 156.15.199 

71 OATA252 .3,255 .218,1 ,255. 221 ,1 .255.128 
,1 .255. 128.3,755.120.3.251 .178.3.255,8 
27 HATA3.273 .0.3 ,255 .0. 1 . ! 2? .0. 1 .255.0 . 1 
,711 ,0.0.210 ,0.0 

93 DAT A0, 60.0 .0.126.0.0.153.0 .0,153.0,0. 
255.0.0.107.0.0.68.0.0.21.0 

21 DATA! 60, 71 .0.191 .255.0.191 .255.128.16 
0,61 , 137,0 ,60 ,721,0,60, 1 12 ,0,60,51 

25 UATA0.60.21 .0 . 1 76 ,0 , 0 . 1 02 ,8 ,0 .231 ,0.1 
-1,195.112,15,1^.710 

26 DAT A0 ,61 .221.80.61 .61.61 .61 .61 .61.61 . 
61.61 .61,61 .61.6-1.61 .61.61 .61 .61 .0.0.0 
180 F0RA=832TO959:R£A0 B: POKEfl .8: NEXT 
102 FDR A=9S0TO!0?3Sl£P3:RfcnUB:PUKEP(.B:P 
OKEA+1 .0:POKEA*7 .8: NEXT" 

110 POKE2040. 15:POKE?04l . 1 4: FORA=204?TO2 
04?:POKEA. I 3: NEXT 

1 1 1 POKEUC 1 77 .255: P0KEUI>33 .0: POKEUO40 . 
12:F0RA=11 T046: POKEUC tft . I : NEXT : GQTOl 0800 
1 13 F0RA=flT0MSTEP?:P0KEUC+n.85:P0KEUCM 
*A.?8:NEXT 

120 MSl.2 3=74O:F0RA=3r0?:rtSlA)=IiStA-l J-2t 
f=t: Oi A J=28/( 255- ( A*15- 1 00 ) J ! NEXT 
140 PRINT "rr;p?][ MOM]'* :F0RAMTOl2tPRJNT. . 
."I 7SPCU REUH SyUK S/PH S/0]! S/P JI SA13C S 
/fUS/OK CVY )": PR 1 NT ..." C CO 1 t REU K S/P3 
LS/OJl S/Pll SxO 31 S/PJI S^OIL SxP J[ S^OK CO J" 
: NEXT 

150 FORA" 1 981 TCJ7023: POKEA . 1 60 : POKESI *A . I 
2: NEXT: PRl NT " L HOm " . , . "(REU3ICH3 ICH3 tC 
H] LCHJ LLH3 " 

160 PR! NT ... * I 4CHK2SPCJCCNJI 3CU K4SPCJI 
CN3L4CU1C 4SPC JC REU3f C/T 31* OFF 31 CN 3C 5CU3C 1 
SPC 3 " : FORft =20 1 3TO70 1 5 : POKEA , 32 
170 POKEA*£I .9:NEXT:POK£2012,223 

180 P0KE54296.15 

181 PQKE51777.10 

182 POKE54279 .248 

183 P0KE51273,3:PQKE51?7?, 1 20 

1 84 P0KE54 776.33 

185 FORUM T0999:NEX1U 

380 P0KE5378I .6: Ti£ 1 } = t 3SPC3* SP0GELSESJ 
AGTTC25PCJ 

305 TiC7J= "COPYRIGHT 1983** " 

310 P0KEUO21 .4: POKEUC* 16. 4 

320 F ORA=85TO30ST£P- 1 1 POKEUC-* 1 , A: NEXT : PO 

KEUt*?7.0 

330 FaRflr30TfJ8STF.r-l:POKEUCrl . A: HEXl : POK 
EUC-M6 FORA -755TO70STEP- t ! P0KEUC*4 ,A 
340 HEX I :FORA = 1 T071 : PR INT " [ L TRED JC HOflJC 3 
CN3":FORBM 1 05: PR1NTR IGMT$. t T* [B ) ,A ): NEXT 

350 P0KEUC*4 ,?P«A»8:F0RBM TO80: NEXT : NEXT 

351 P0KE54776.16 

360 P0K£UCtl6.2lG:P0KEUC*2l .255 

408 FORA=3TO7:FOR8=90 TO30ST EP- l '• POKEUC+ 

2*6 .ft: NEXT : POKEUC* 22, PIS (A ) 

110 FORB=3PTO0STEF- 1 : POKEUC * 2 *A .B: NEXT : P 
0KEUCt!6,riS(A 3:0=76 

4 70 FQRB=255TOCA*15-100 3STEP-I :P0KEU<>2* 
A.B:D=0-OCA) 

130 P0KEUC»I<2>A.0:NEXT:NEXT 
440 PRINT [25PC3iRE<J]J[ OFF JOYSTICK ELLER 
CREU3TASTATUR " 



158 GETfli: 1FPEEK156321 J=239lHENA»-"J 
TO470 

468 IFP-tO ' J AND At < > T ~THE N450 
470 POKEUC* I .77l:PQK£UC*3,22l :FORA=0TOl5 
0: POKEUC .A: P0KEUC*2 .A? HEX I 
480 F0RA=l88TO255:POK£uC+4 .A: NEXT ! POKEUC 
*16 , 4: FORA = 0Tt)30: POKEUC + 1 . A: NEXT 
500 I = f. IF Al : " I " THENL M 

2000 PJ^158;SX=PJ:POKEUC*38.0'.P3=50--P4=5 
»: P5^50: P6=50: P7=50; T I i="000000' t C=0 
2010 POKEUC ,P J : POKEUC* I .22 UP0KEUC*2 ,PJ*. 
POKEUCt-3 . 22 1 : POKEUC *2s .255 

2020 PRINT •IHOnjtl.TBLUJ ' : F ORA M TO 1 5: PR1 N 
T"t 375PC3 ' . : N£> I 

2500 J=PEEK(563?1 3: IF ( JAND8 )=0THENPJ =PJ* 
10.6*C 

2501 1FUAN0L )=0THEMPJ*PJ-I0.6-C 

2582 IF CJAND1 6 J-OANDASUK-0ANOSY=221 THENS 
W = l 

2503 IFSU>01HFNSY=5Y-16:SU=SW- .06 
2501 IF SU< =0H»ENSU=0:SY-22l :SX=PJ 
2506 GETAl:lFA*>< U THEN GO 10 25 l 7 

2510 GOT02518 

2512 IFPJ>?36ORPJ<24THEN5000 

2513 POKE53?19,SY:POKE53??8,0:POKE53249, 
SX:POKE53750,PJ:C=C»-015 

2511 SC=PEEK( 53778): IFCSCAN08 )=8TNENP3=4 
0:SU=0 

7515 P3=P3H .6iC;P0Ke53255.P3; 1FP3>=200T 
HENA)=3: G(JiU6800 

7516 IF ISCANL'l 6 J = lfiTHtNPI =40 : 5W=0 

7517 P1=P4*i .3*C:P0KE53757.P4: 1FP4>=700T 
HE MA =4 : GOT 060 08 

2518 IFISCANO32)=32THENP5 = 40: SW=0 

7519 P5=P5'?.0*C:POKE53259.P5: IFP5>=200T 
HENA-b: GOT 06000 

2520 !FISCAND64):64THENP6-40:SUr0 

2521 P6eP6*l .6*C:P0KE53261 ,P6: IFP6>=200T 
HENA=6:GOrO6000 

2522 IFCSCANP178 1 = 128 TMENP7- 40: SU=0 

2523 P?=P7H .7<C:P0KE53263.P7: IFP7>^2001 
HFNA=7:GOrO6800 

2524 PRINT'-CHOPl3".f1JD*CII*.4. 1 3; : "RIGHT 
*CTI*,2):GOTO2500 

50R0 IFPJ<2irHENPJ-2l:G0TO25l3 
500 1 P0KE51295.15 
5082 POKE51777.40 

5003 P0KE54278.218 

5004 P0KE54773.M:POKE51272.214 

5005 PCJKE54776.33 

5810 Ti=Tri:PRINT'[LTREOU3CN3t4SPCJUU E 
R DPUKNET It l I SPC 3 

5026 POKEUC » I .77l:FORA=237T025S:POKEUC*2 
,A;POKfr:UC.A:NEXr 

5030 FORA=22l T0255 : POKEUC* 3 . A: POKEUC * I ,A 

:NEXT 

5040 PU=UALtrilO*CT* .3 .7 1 l*60t UAL t R !GHT*( 
T4.23) 

•3850 PRINT .' [ ?CN 31 CU]OU HAR HOLDT UO I " 
:PRINT ,PU*'SEKUNDER*' 
• 5060 TJV= 80000B " 
5065 PRINT C4SPC JGAptMEL RECORD: ':HI"SEKU 
NOER' : 3FPL1>HI THENHI =PU 
5e7B P0KE54776.I6 

5890 UAIT56321 . 1 6 . 1 27:F0RA=3T07: POKEUL *2 

*A.A*45-100:POKEUC^23A*I .20:MEXt 

5100 POKEUC .1 50: POKEUC* 1 .221 : POKtUC+21 .2 

55:P0KE*2.1^:P0KEUC*3.?2t :SY=?2t:SU=0 

5110 FORA=1TQ1500:NEXT:GOTO2000 

6008 f\~M *:prPEEK(UC«A«7 J:Pf3KEUC .PJ:POK 

EUC*1 , 221 :FORB=207T 022 1 : POKEUC tA»2* I ,B 

6018 NEXT:RG=-l: 1FPJ >PTHENRG=1 

6020 P0KEUC»A*2 .P 

6030 IFPOlNTfPJ 3THENP^PtRG:GOTO6020 
6010 P=P+2: POKEUC *A»2 .P: POKEUC+2 .P: POKEU 
CP 

68R0 PRINT 1LTRED3I2CN] SP8GELSET HAR DR 
UKNEl DIG(L5SPCl :GOTn?020 
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DYNAtflT HARRY 
INDSENDT AF 
FRODE GRAFF 

TILVIC-20: 



20 PUKE36873.1.71 

30 PR INT-L CLRK 3CMH 8CH3C BLUJUENT I 

10 FRINKLPUHHCHJJEG SETTER OPP TEGN" 

59 F0Rft=7]68TO2673 

60 PEflDR 
70 PDKEP.B 
80 NEXT 

100 P0KE368H9.255: P0<E36879 . 1 52 

110 PRINT'C ELR jL BLKjCCC DYNnniTTCRE^J-tO 

FF J HARRY CCC" 

17R PR1HT "C 3LHJBEFIREVJ FRODE GRAFF" 
130 PR1NT'CFEUJC2CN3CBLU3 DIN OPPGAUE ER 

C0FFJ3CREUJ RLOFF33CPEUJ £ CNJE 2SFC3FRP 
LfiGEREI PC0FFJJCREU3 DEN I CN3C 3SPC 1ENE S 

1DEN": 

118 PRINT " TIL DYMA-t 3SPC3C CN3(inTEN PtO 
FF33LREVJ DEN ANDRE C CNJ I 25PL JS1DEN X 2SP 
C3"; 

158 PRINT" DERETTER (It OFF- 3 Jt REUJt 3SPCKCH 
JDL) FOR TEST HDL IGC CN3C 6SPCJT JLBftKE Ft OFF 
J-itREUjR OH MS-" 

im PR1MT -CREUJCCNJ TER DYNPHITTEN 
|70 PR IHT"C CNir.REUJC 1SPC3TRYKK tf!FF3GU 



180 IFFEEKC 19/ 3O33THEN180 

190 FPIM1 "C CI P JL BLK3CCX DYMflHI TT[ REUJ-tO 

FF J HARPY rxC" 

?«0 PRUn tt tU-lJLPEU3 UINE FIENDEP ER:|16SP 
CJUMJSKll.5.EKlENE:i ieSPC3r»ERKEUGE DYR S 

(JMLC^POSlMSER "I 

730 PP1NT" PES nrH9SPC3DERETTF-R EKSPLODE 
PER 

770 PRlNVl.PtU3tCN] F AKLENE: t 1 1SPC IF AKLE 
R SOTl TENNtiRLbSpC JPC0FF3 JCREUJ DYNAF11 TTE 
N D1MC5SPC3HOIS": 
230 PRINT" UU HAR HOE" 

210 mi'T'LBI "JICNJ Q IREUiUOfFJ S LREU 
] =HARRY 

?5P FPIMT"t CM] CCfiSPC3CREVl=SKILSEKT 
260 PR!MT"t CNKREOJ 2t6SPCiLRE03£BLU]=FP 
KKEl 

270 FORl=non0R:NEXT 

?m 3FPEEKC 1 32 )<>33THEN280 

238 PRJNT"C CT.R 3 " : P0KE36979 . 27: P0KE36869 . 

710 

300 IFLPEEKCV15I )f^N06l J=61TMENPR INT 'PRE 
SS PLAY ON WE":F0KE616,RNDC1 3x8:6OTO30 
0 

310 PRlNT"tCLR3[BLU3*"W LOADING ***** 

T.'Pi C0KE13B.5:PnKEfi31 .7a:POKE632,69:P0KE 
633 ,97 : P0KE631 .13: P0KE635 .131 
1000 DATA 

1018 DATA56.21 .11 .78.126,70.70.239 
1070 DHTf360,66.153.161 . 161 . 153 .66 .60 
1038 DATA16. 81 ,56 ,56,171 ,91,81 , 
1010 nATn?1B. I 08. 187. 187.107,102. 108. 249 



1050 PP.Tei9.21 .53.21 ,19.17.17.1? 

1060 UfnM7.85.8S.39.8l .91 .91 .33 

1 078 DBTfll72 ,217 .235 ,719 , 1 99 ,239 , 239 , 127 

1080 DIVTA217.90 .98.1 76.98, 98. 98.747 

1090 UflW-13.74.74 .71 .71 .71 .74.60 

1 1R0 UflTflHfl.17G.i36.72.4fl.17e.68. 

1110 DflTfl76. 170, 178, 172.172.170,74. 

I 120 Dn1fl?24.i78.136.197.l36,328.224. 

1 1 30 PAT P777 . 1 18 , 1 06 ,99 ,99 .98 ,9B ,247 

I 140 UATP738. 180.1 16.124 .92 .76 . 68 ,23B 

I 15B Ufl Tfl 1 69 . 1 70 , 1 20 , 234 , 1 70 . 1 70 . 1 69 . 

1 160 DATA 1 -I8 ,94 ,20 .28 ,212 ,84 . 1 48 . 

1170 UATA6 .6,50,67,54 .5 ,9,27 

1 1 83 UP.T025? , 187 . 1 02 . 1 21 . 1 20 . 1 08 . 1 02 .21 7 

l 190 DAT A96, 36, 26, 174 ,108, 160 . 111 ,216 

1200 UflTflS?5.90.74 .74.24 ,24 .21 ,60 

12 10> (Jfl Tfl2lP, 720 .156, 228, 720, 720, 270. 248 

1 220 Ufllflfl 1 ,M ,9fl .96 .97 .243 ,747 ,255 

1230 UP TP . 71 , 18 ,719 . 224 .274,192,132 

1750 UflTfl755.75S.25o,?S5,254 .752.219.240 

I7 f ;fl UflIP-731 ,^ifi .36 .71 ,74 ,7*» .74 .60 

1 270 DAT A 24 .56 . 56 . 1 24 . 1 80 . 1 08 . 66 . 7 

!?R0 |)fl I A3M.1fl.fln. 371,80.80,94. 

1290 UflTP26,36 .74 ,90.82 .36 .88. 

3100 llfl IflSO. 10. 171, 68. 171 .68. 68. 

1318 UATP7S5.31 }? . 1 . . , , 

1320 UflTfl2'.>5.?55.2S5.75-5.127.63.31 .15 

1330 UATP 

134P riflTfl?35.748,7?1 .128. . .. 
1 $53 MAT A 

1 36C* UA I A74W .774 .274 . 13? . 1 92 . 1 79. 3 28 . 128 
1170 llfllfl. .. .178.771 .718.755 
13AW |iflTA7l0.?l8.7C.7.?:M,?55.755.755,755 
MSP! UATAl 7^.178.128, l 92. 1 32. 771. 771 .748 
1100 Ufllfl. ...1 .7.31 .255 

1110 PflTP 15.11 ,63. 177. 755. 755. 25b. 255 

1170 UPlPl ,l .1 .3.3.7.7. 15 

1130 lifllP. 753. 177,31 .7.1.3.3 

1110 Ufll A755 . 755 .755 .755 ,7 55 .755 ,755 ,255 

1 150 UflTAl 58 ,752 ,210 , 721 , 1 28 . 3 92 . 721 . 218 

460 UATA/,/. 15. 15, 38, 78. 24, 48 
I 47B 0ATfl7Vj , 755 , 1 89 ,*0 , 56 , 18 , 18 ,32 
1180 1)AIA710.718,752.60 .14 .7, . 
1181* REjUflU 

1 4U0 UP 1PM« .170.701 .204 .204 ,204 ,120.18 

I 500 UA1 A8 .56 ,71 .71 .71 ,24 .74 M 

IMP! UP IP! 70 , 757 . 701 . 28 , 1 70 , 224 . 757 . 252 

) 570 DAT PI 20 .75? .3 40 .71 .1 7 , 110 ,757 , 1 20 
I 530 UA1A17 .* J 8 ,11 ,76 . 1 76 . 1 26 , 1 2 ,30 
1510 HArP7i7.7h7.1 97, 718.171,1 7, 257. 120 
1 550 DATA1 20., 757 . 1 37 .71 8 .757 .701 .757.170 
156B IWTfl757. 252, 118.71 .48.4fl.48.48 
1520 UflTAl 20,752.201 .120,204 ,704 .252.170 
(580 UA I Al 20 .757 .7P4 . 757 . 1 71 . \ 7 . 752 . 1 70 
I39B UATfl6,3.!6.l6.8.8.71.60 
1 6W0 UAlP*>0 ,f-;n.fift. 60.60.60.6P .60 
itilB UA1P15./.7.3.3.1 i l .1 

1670 UfllP176.235.153.273.273.255.lD5.245 
1 630 Unl P 1 1>5 . 255 . 1 33 . 271 . 7 1 3 . 1 37 . 755 . 1 93 
1 610 UATA7 13.213 .255 . 193 .229 . 209 .251. . 1 26 



DYNAWIIT HARRY DEL 2 

B P0KF_36,78:PrjKE57,28 
5 PRINT "L LI RJ " 

10 POKE 368^9. 755: P0KE36879, 24 :P0KE36878, 
5IP0K£37151.1?7 

3 5 P=l : i;-»16l:n-388Oi:P=0: H--0 : = X=0 
70 Vis-LHWJLHLNJIWHTJ I RRNU CUK CM J U CM 

jCLNj;n;u3LU-i j;t lujc 13CN3" 

75 2is"£CLR3LlM.KJ>«tWJLCUJ«tU)MC l«C»U*«- 
30 rPIN17t 

35 HtK*-_8l17,3fl:rriKE38867.»:P0KE8t64 ,37=P 
XlKE'JW'1 .01 POKEA tfi5 . T6: P0KF38885 ,0 



4 0 P0KEfil63.1I :POK£38883.0:POKE8I85,40:P 
OKE3A905 .02 P0KE8 l 64 . 39; POKb38904 . 0 

4 5 G0SUB75 

50 PRTNT"( MAM U 7CH3C 3CH3C BLU 3DYNAM I TTt RE 
U3- t0FFJHORRYo»" 

55 PRHa -tMOn3C3CN3C3cHJoeooeoeeiioo*9oeo 

":FORI=1TO500:NEXT 

&0 l FPEEKt 1 92 3=39THEN90 

65 PRINT"LHfU1lL3r:NJ( 3CH3BEFL REU) FRODE 6 

RAFF " : R7 =RT-r 1 : IFRT = 1 0THEN7508 

70 PRINT J LHC1[13L 2CNJC 3CH 

" : FORI = 1 10500: NEXT * COTO50 

75 PRINT "t H0P1 3L6CN3C 6CH )JKL"lNTtSC J 

80 PRINT "l 7CNJC3CH30P JKL*3NTCHG: 

05 PRINT"CPF;'JJ[.?LN]C6CHnRVKK [OFFJGU CR 
EUJl CU) ": RETURN 

30 SL=0:x=0:RF=0 

95 PRINT "i f-( RJ":POKE36e79.737:p=809?:Q = 8 
fl97:p=0!H=H:W=0:6=0:POKE36B7B.5:Sl =0:POK 
E 36877. PI 
100 PRIHTY1 

!05 Urw.J01»ll'HSL=SC- .1 

M0 PR1II!"'L Hi in ICUHT 1C2SPLJJKLC YEL riNTCS 
U, L 3SrC J "S 1 n 0R.1 =0iT 02 » l SQR( SC ) J/S 
170 EsRNUU U?Pht:S=RNnU )*7 
130 P0KH.^.,3tINT(S)»23:P0KE0*E,!NTtS3X2 

: NEXT J 

135 IFU-lflril'ol >0THEMSI =S1-1 

140 PrPEEKfl?2 )• J£=PEEKC17151 ) 

150 iFf ttSO* USflND* J=0T MENH=H-1 
160 IFf'-21llRt JSPM016 J*0THENf =F- 1 :G-0 
170 lFP=37ORCJSpNU9J = 01HENH=Htt 
180 1FP -72DR(.PEEKC371S2 )flNt)l28 )-BTHENF=F 
♦i:G*2 

200 IFH>nHfcMH>4 
710 IFF <-211Ht:NP =-71 
220 UF>01HfcNF=0 
230 ]FH<-16rHENH=-16 
210 P0KEO- 22.0 
250 Q=P+F+H*7? 
260 iFPE'EKCQ J-3THENL008 
765 IFPEEK(ai=?6( ff »NOWMTHEN100e 
770 POK-EU.17t6:PGKE30720ta,2 
280 POKE7987.0:POKEe009,61 :POKE8031 .62:P 
OKEA0S3.63 
300 P0KE36A71 .131 

390 P0KE38729 , l : P0KE38751 , I : POKE38773 , l 
400 IFF=-2lftNDH<-9flNUH>-l3ftNOW=0THENGOSU 
B2008 

118 lFFr0flNnH<-2flNOH>-6flNUUr] THENGOSU830 
00 

500 P0f:r?6974 ,252: POKE36974 .0 
590 GOTO10R 

1000 ( J 0KEC,l3:P0KF.a-t ,42:P0KtQ-2] .23:P0K 
Lft-?2.72:POK!iJ-23.8:P0KEQ*l . 14: POKEQ+21 , 
45 

1005 pOK£Q<22.46rPOKEQ»-23.47 

1010 PQKE30720*Q .2:POKE38770f Q-l .?:P0KE3 

0720^-0-21 .2: POKE30720*O-22 .2: POKE30720+Q 

-23,2 

1015 PaK£-0720tQ-H .2:POKE30720*O-»21 .2:P0 
KE33720+C*22.2:POKE30720*Qt23 .2 
i825 T=l 

1030 FORl = l5TO8STEP-0.*ie 
1035 T=T«-1 

1 040 POKE36829 . 1 89t T»6 i . 5: P0KE36878 . 1 ( 
KE36e7?,H0-»RNOU ?*7B 
3050 POKE3d86S.32*RN0l M*7:NEXT 
I860 X=X»t: IFX=4THENl 158 

1070 :POKt368 29.e:POK£36869.740:POKE3682 

?,02PRiNT"CCLR3DU HflR'1-X"LI0 1GJEN" 

1080 FOPl-lTO2500:NEXT 

I090 POKE36869.255:G0TQ95 

1150 IFSC X1GTHENG0SUB1 300 

1208 PRINT"t GLR1 ';P0KE368?7 ,0:GQTO1B 

1300 P0KE36877 .0 : P0KE36879 , 1 24 : PRINT "CCL 

RKWHT3l6SPCJJKL[REDj"INTCSC) 



^P0 



54 



KORI! ! I (IF I JCCCC" 

1 110 pokt3&B;>a . is: fori =755101 ??step- 1 

1320 PHKE36875.i 

1330 NEXT I 

1360 ri)KE3*W6.& 

1370 Hri=SCr RETURN 

1380 FORI =1 TfH800:NEXT 

139P RETURN 

7000 SI =10Pi 

2010 FDRI=l5Tn0STFJ*-| 

2070 POKL3t3C78.I 

7030 FC1RJM35TO710STEPI5 

2010 f'0KE^n76.J 

2050 NE> T J . 1 

2060 POKE36R^6,0 

2070 P0KE36«7ft.5 

2080 G=7:U=1 

7030 RETURN 

7bH0 nejNT"trxpjc YEL jt ispc JPYNflnTTTHflRRY 

u 

7505- P0KE3ft873.737:r''VINr'.CN3 I YEL ]Cl CBL 
UJtPtOJUOFl j [ YEL JS. LSI U]{REUJ*HARRY 
231(9 PRINI"CBLK]LCNJI 3SFC ]C[ 3SPC3C BLU3C R 



7520 PRir 
EUl^FAKKLL 
2530 PRIN1 'HiKNJLCN3C3SPCj:CCN3CCU3irCN] 
lCU];C3SPt:jlPt , JjCBLU)[C03=aYNflnjTTEN 
7510 PRINT "t UNI J [ 7CN JC 3SPC ) =t CN J [ CO J >t CN 
3CCU37C 3SPLJC RfcU UBLUlC C03 =LOGFRET" 
2550 PRIN1 ' LSEU3C2CMJ BRUK JOYSTICK ELLE 
P[3SFCJlC»JjrF>srERt2SPC](P L . ; 3*" 
2560 PRINT "I CN)[ REVJt R6P3C 5SPC3 IRYKK tOF 
FjtBLKjnu 
2370 FORI = 1 TO 1500 
7590 IFrEEK f 1 32 ) -39THEN90 
2530 NtXTJ 

7600 PT=0:('f)KE36S29.2^:GOTO30 
3000 U =0: PflKe 36878 . 1 5; P0KE36B71 . 0 
3020 FORI.-nOSl 

3B3P. PrjKt3fifl25.230:paKE36828. 1 5-' PR I NT "EH 
OH 3 1 UHF H 2SPC JJKLl YEL J " INI CSC+I J ,"[ 3SPCJ 
"SI-T'LCUJ :POK £36878.0 
3035 NEXrt:('OKE36fl25.0 
3R10 Pf}*E36fl>8.5 
3050 SC=SC-S1 :£1 =0 
3P6B RETURN 




SNAKE 
TNDSENDT ftF 
PIORTEN GROULEFF 

TILVIC-20: 



0 POKE37139.0:GOSUBi:PRINT (CLR] 

1 GOSUB499:FORI=3B480TO38386:POKEI ,8;NEX 
T 

2 (tt =7702:GQSUB200:GOSUB800:GOSUB828:POK 

3 P0KE36875. 0:0-1 : A* = - Ux .0: p=0: RESTORE 
: POKf 36878. IS: CU = 9>R : G0T08 

4 P0KE52 . 29: P0KE56 , 23: P0KE36869 .255 

■5 F0RUB-2422TO2522:R£R0BU:POKEUB.BU:NEXT 
: RETURN 

6 BfltfiSB .36 ,65 .129.1 29 ,66 .36 ,36 . 1 53 .30 ,6 
0.255.255.60.30,153 

2 DO TO60 , 1 26 . 255 . 255 . 255 . 255 . 1 26 . 60 . 24 , 3 
6 . 1 95 . 8 . 0 . 1 95 . 36 . 24 , 255 , 255 . 255 . 255 . 255 , 
255.255 

8 Df»rp255.B .3 .8 .9 .8 ,8 .8 .8 .,..255 
. 255 , 

20 F0RN = lTOlx: GETA*: IFFt*= THENNEXTN 

21 PRINT IH0MU21SPC]'':KL=Q:PRINrTH0MJ~' 

p"c eu-u* r v* (Cfl 

28 G=PEEKt371373:N = ( tGflNP4 3=0 3: S = -C CGflN 
□8 3=0 3;*J= nGPlNDl6) = 0 3;F=-rCGnND32 3=0) 
38 P0KE32154 ,127: 0 = -t C PEEK C 37 1 52 3PND128 J 
=0 }i P0KE37151 ,255: IFF r lTHENGOSUBl 301 

31 0=U+0: IFQO0THEN34 

32 Q=22xN+Z2*S: IFQ-0THENQ-KL 

34 P0KE36874 .225: POKE 36876 .228: POKE36074 
. 0: P0KE36875 , 235 : P0KE36875 .0: P0KE36876 .0 

40 ft9=08: 08=fl7: A7-A6: A6=A5: A5=A4: A4=A3: f\ 
3-fl2:A2=fti:ftl ~A1 +-Q: I FPEEKCAl )O32THEN108 

41 IFQ=720RQ=-22THENER=38 

42 1 FQ= 10RO =- 1 THENER =4 1 

43 IFA1 <7702THENQ--Q 

44 IFfl >8163rMENQ=-Q 

49 POKEF»9+3072B,0 

50 POKEA2.40:POKEA3.40: P0KE.A4 .40: P0KEA5 . 
40: P0KEA6 ,40: P0KEA7 . 40: P0KEA8 .40: P0KEA3 , 

32 

51 POKE A 1 *30720.5:PQKEfU .ER:GOTO20 
109 IFPEEKtAl )-40THENP-P-2:GOTO50 



107 FORPE=50TCS7: IFPEEKCA1 3=PETHENP=P+PE 

-48.*U=PE*3:G0r0l 10 

J 03 NEXT:U = 2B0 

J 10 IFPEEKCA1 ]=42THEN700 

I 1 1 IFPEEKf.Ol 3=49THENP=P+I 

112 IFPEEK ( Al J=33THENU=250:P=P+10 

114 HG=PEEK(ftl ) 

123 PDKE36874 ,U: P0KE36874 . 0: POKE 36875, U 
-10:POKE36875 ,0 

1 24 IFP/50 = I N T CP/58 3ANDP>0THF.NP =P+ 1 : GOTO 
348 

125 G0T041 

200 FORR=l T0175: S = I NT ( RND ( I 3*480 3t7706: P 
0KES.42:NEXT 

220 FORR=lTO20:StINTCRNOtl X*4"52 3+7702: PO 
KES .43: POKES+30720 . 2- NEXT: RETURN 
099 PQK£36869,240:K=B 

500 PRINT* T CLR JS*JC RHEOSGRf r »D?( 1 ,2.3,1 

93" 

505 PRINT'T CN 3SKYD: SflnPIE SU( RHED" 

•510 PRINT"r6C'N3" 

529 IFP>RTTHENRT=P: J=n: NRV=Ni 

531 PRINT'REKORD: : RT; J ; NRt 

532 PRINT SIOSTE: :P;A;Ni 

533 PRINT FORIGE: ;SP;SA:NE* :SA=fl:SP=P: 
NEi^Nt 

593 P=-CCPEEKC37137 3ftND32 3=0 3: IFP=1THEN6 

98 

608 GETFiS^^ftLCO*): IFfi<lORe>9THEN602 

60 1 GDTO620 

602 P=-rCPrEKC37I37 3flND32 3=0): IFP=0THEN6 
00 

603 R = Sf>:G0T0698 

628 I*-C ^(60/*A )+203: IFFl = l THEN1 x-- 1 00 

698 PR I M r f CLR 3 ! P0KE36869 ,255: A2=0:ft3=0 

:O4=0:Fl5^:fl6=0: A? i 0:A8=0:n9=8:RETURN 

700 POKF 36875 ,180: P0KE36876 . t 40: P0KF.3687 
7 . 248: PQKE36S74 , 280; P0KE36829 , 1 5 

70 1 IFQ=220RQ=-22THFNFORN- 1 T039 : P0KE3686 
5 . 37: P0KE36865 , 33: NEXT : P0KE3G865 ,38 

702 IFn-lORQ=-lTIIENF0RN = lT099:POKE36864 . 
1 1 : P0KE36864 .13: NEXT". POKE368S4 . 1 2 

710 F0RN=1 rO999:NEXTN:POKR36877.0:POKE36 
876 ,0: POKE36875.0-POKE36S71 .0: GOT01 

810 F0RR = 1T028:S=INTCRND(I )*480 3 1 7706: D- 
INTtRNDCl 3«8)t50:POKFS .D;POKESt-38720,2:N 
FXT 

811 RETURN 

821 P0KE7773.33: P0KE7784 ,39: P0KE7327 . 
P0KE7938 . 39: POKE808 l , 39: POKE9092 .39 
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2 P0KE384y3 . 2: POKE38504 ,2r PQKE?ti647*2l 
P0KE38659.?:P0KE388ei .2:P0KE388]?,2:RETU 
RN 

960 GOSU8220: ONKGOTO 1 100 . 1 1 10 . 1 1 20 . t 1 30 . 
1 140 . I 150 

9 1 0 f ORN " I T O2Q00 : NEXT : GOSUB 1 000 : E W *&4+ 9-* 
A:G0SUB88B 

911 POKEfll+Q.32:P0KfflUCJ*2 ,32: POKEfll »3xQ 
.32: G0TO125 

940 K=K-'l: 1FK=7THENK=1 
350 GOTCJ900 

1000 FORR=l rO50:S=lNTfRHDCl 5*464 J*7702:P 
QKES ,42: POKES* 30720 , 0: NEXT : RE TURN 
1 100 POKF7773.39: POKF38493 . 2: GOTO910 



1110 POKE 39: POKE38504 . 2: G0TO91 0 
1 120 POKE7927.39: P0KF38647 .2: GOTQ810 
1 138 POKE7338.39:POKE38658.2:GOTO910 
1 140 POKE8081.39:POKE38801.2:GOTO910 
1 150 POKE8892.39: P0K£388 1 2 ,2: G0TO91 0 
1901 O-KL: 3FQ=22ORQ=-22THENTY=43:GOTD200 
0 

1910 TY=44: IFU*> - EWTHFNRETURN 

20B0 FORR=f"il tQTOftl KQ.*3 JSIEPG: PQKER.TYJN 

EXT : FORRR - 1 TO 1 00 : NEX T : U* -U*+ j 

2028 h0RR=nHOTOrtl*Qx3STEP0: POKER. 32 :NE?« 
T : RETURN 

2100 FORRM 10100: 5 = IHTtRNDCl 1*188 J+7706: 
POKES ,224: NEXT: END 



HYDRO RAIDER 
^SaM6&^ I NDSENDT *F 

GERT AX ELS EN 



TILVIC-20: 




2 pOKr.36879.8 

3 print ren-urpuRjiecNiHYDROiss/si 

4 PRINT T6CH3t PURJC2tN)RflIDERC 

10 N-0:O = 2:P=3:F=7681:C=4:G-5:R-B:H=3163 
: I=UT=7839:B1 =1:B2=10 

12 POKF368?8.15:POKE368?4.0 : U 1 =230: [FAB 
•^1THEN100 

15 POKE52,28:P0KC.56,28:F0RP=?t68T0?6^9:P 

OKEft ,PEEK(lV25608 ): NEXT: P0KE36869 .255 

20 XanfiBiV*?! 75;GOSUB50:X=7|76:Y=7IB3:G 

O5UB50:X=7184: Y -7 1 91 : GO5UB50 

23 X-7192: Y--71 99;GOSUB50: X=?28B: Y =7207; G 

O5U850 : X = 7209 :V=72iS: GO SUB 50 

30 X=72Le:Y:7223:GOSUB50 

35 X = 7224: Y=72.1l:GOSUB50:X=723 2: Y=7239:G 
OSUB50: X=7240: Y-7247: GOSUB50 

36 X=7248: t*=72S5: GOSUB50: X=7256: Y =7263: G 
OSUB50 

45 GOTO 1 00 

50 f ORrt - XfDY; ttEAUB: PCJKEfl ,B: NEX I*- RETURN 
55 OFtTnB. 176.1 26.0.0.231 .231 ,0.255.255.1 
95. 195. 195, I OS. 255. 255. 34 .63, 136. 0.17. 34 
.63.0 

60 OfVT«0 . 0 . 0 .56 , 63 . 1 24 . 126 . 1 26 . 1 5 . 2 , 68 . 9 
4 . 127.95.66.4 ,0,0 .3 .24 . 252 .24 . 8 ,0 

65 OnTflt, 4. 1 26. 255, 1 29. 126. 165. 126. 0.16 , 
16.16.16.16.16.56 

66 OinTrtl .2.28. 17.78.4.0 .0.0.0. 16.24 .63.2 
4 ,16 ,0,192. 1 ,67 .127.254 ,224,0,0 

67 Onrnfl. 0.4.20.12. 28. 2, 1 

100 PRINf t CCR3 '■ r ORf^ "7858f 07360: FORB-pT 
OH • 308<;TrP22: POKEB .N . POKE8*-38720 . 2: NEXT : 
NEXT 

200 KORO = 7878 r 078 79 : FQRB -ftTOfl * 2365TEP22: 

POKES .0; POKEBt* 30720 ,6: NEXT: NEXT 

300 POKE 7838 ,p: P0KE3855B .6: FQRfV8071 TO80 

75: FORB-fi ron 1 1 32S TEP22: PQKE8 . 1 : POKEB*307 

20.2 

310 HFXT:NFXT:P0KE36879.152 

400 n-7B55:B-B:POKE650.128:U-0 

480 D=D*r:!PO 22IHEN480:POKE36B75,0 

500 n=ft+22KB-B>i: t Ffi > 7987QRR <78 1 7 THE Nfl=fl- 

22*B 

510 ^3-PE'EKrfl-l ): IFA3 ; N0RA3 --PTHEN3000 
515 POKE 3637,*. 254 

528 K)KCfl.t:POKEfl+l .82: POKEfi* 30721 .0:POK 

ERt30720.0iG-0 

600 IFPEEKCI9?) = 2!THEN8 = -1 

650 IFPEEKC197 1-29THENB-1 



630 IFF -21 FMFNF=F+f : IFPEEKEF )=NORPEEKCF 3 
- OTHE NE -8 : POKE 36876 . 245 

695 1FPEEKEF - 1 )=OANQPEEK(F-M U32THEN2000 

690 IFE '21 HIFNPOKEF.G;POKEF*30720,6:POKE 

36876. 230 -D 

700 IFF '21 >8l85nirNF =8 

785 POKEH. 32: POKE 36374 .0 

710 H-HM: UH-8l580RH-8l91lHiNl =-l:G0T07 
10 

728 POKDI ,R: POKEH* 30770 ,0:POKE36874 . 135 

724 P0KEL.32 

725 1FK = -22riCN737 

730 J = INTIRNDC1 1*3): IFJ -2THENK =-22: L =H-2 
2 

737 L=L+K: IFPEEKCL J -CORPEFKCL 3=B2TMEN300 
0 

740 IFK = -22THENP0)KEL .7: POKEL* 30720 .0 : IFL 
<-7700THENK=0 

750 M = INTfRNOC 1 )«31: IFM "2fJNUS = 0fiNUfl<7834 
*NDfl >78 17THFNS = -21 : 1 =8 

75 1 I FrWfWr =7639ANUfl >7839flNDfl <785S THEH 
S=l3 ^7839: £=9 

752 IFpl=2nHDT=7839flN0ft>7e5erHENS=23^?| 1 

755 POKr36B75.0:POKET.32: T^Ti-S: IFPEEKCT J 
-CORPEEKCT )-B2THEN3000 

756 IFT^>7855flNDS-iTHENS=0:T=7839 

757 IFT>-8092nNDS=23THFNS=0: T-7839 

768 1FS O0rHFNPOKET . 2: POKE f+30720 .0: POKE 
36«75.129 

770 IFT < -7690 rHENS"0 : T i783S 

999 P0KFA.32:P0KFft+l . 32: POKEF . 32: P0KE363 

76,0 

1001 GOTO4S0 

2000 POKEF .a;POKEF+l .0: POKEF+3B720 ,S: POK 
FF* 30721 ,6:POKEF>2.O:POKEF+30722 r 6:POKE3 
6875,0. 

2005 FORB-F OTPS! 68STEP22 : POKE B.O:POKFB+ 
30770. 6:NEXT 

2010 POKE36877.0: P0KE36876 .0: POKE 36874. .0 
• FORft ^8185TG7878STEP - 1 *■ POKEA ,□: POKEfl + 307 
28.6:NEXT 

2015 RES TORE '• F ORM = 1 T 096 : REOIJU S NEX r 
2020 FORC-1 101 ^:REnDn:POKE36875.fl:F0RB^ 1 
T 0500: NEXT :POKE36875.0: NEXT :GOTO3040 
2030 DA TAIL'S. 207. 201 .195.201 .195.183,175 
. 1 59,175.20?, 281 , 195.195,191 ,L95. 201 
3000 POKE36877.0: POKFrt ,C : POKEHt 1 .02: POKE 
130721 .0:POKEfl+ 30770.0: [FfOSt 84THEN-3020 
3005 POKE 36373 .15: POKE 36874 .01 : 01 =Q| - 1 
3010 POKr38876.0; P0KC36875 ,0:FORB-1TO100 
: NEX T : POKE/1 .32: POKEft+1 .3?.:r\-fS*22; GOT 0300 
9 

3020 POkE 36877 . 255: PORA 1 TD1 00: P0KE36865 
.35:POKE36865.40; NEXT 

3030 FORfl-15TO0SrEP-l:PCKE36878.fi:FORB=l 

TO 1 80: NEXT: NEXT: POKE 36877,0 

3040 PRINT rCLR] : CLR : 08= I : GOIO 1 0 
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Commodore - MARKED 



COMPUTEflBUTlKKEN har de seriose 

programmer til Commodore 64 
P ROFESSIONEL TEKSTBEH A NDLING 

Viza write 64 

KR. 1248,- 

- Med cfanske karakterer as, 0 og k 

- Formaiterer teksten mens De skrlver 

- Side-scroll tiilader 255 (egn/ilnie 

- Uge hojremargen ved udsKrift 

- Sammenkobling at f lere dokumenter 

- Indtyggede msflmerge faclliteter 

- Tabulators lop, decimal tabulerlng 

- Underslregning/lremhaevelse a( tefcst 

- Flytter/kopierer tekstblokke 

- Dokumenter pa indtil 20 A4 sider 




kken 



v' Akademirisk Bdghandel - Vestergade 58A 
8000 Arhus C - Tlf. 06-13 20 55 



Fa mere lid af 
din Commodore 
tijemmecomputer 

Dansk Tidsskrift med tips 
og id6er. 

Prcvenummer tilsendes. 

Basic Programmering 

Norholmvej 8 
8740 Braedstrup 

Tlf. 05-76 15 18 



COMPUTER 



DRAGON SHARP 

MICKOBEE ^Cfi 

Alt i computer og 
perifert udstyr, 
EDB-borde og tilbehsr. 

MIBOLA - stedet med 
den gode service. 

MIBOLA 

/WKROOATk 

Osterbrogade 25 • 2100 Kobenhavn 0 

Tlf 01-42 19 66 
Det rigHae datagrej til mrhvmrv og tritid 



Alt i interface og udstyr 

til VIC-20 + 64 og avrige CBM varer. 
Ogsd harddisk, der beijenes som cn 
8250. kan tilsluttes samtlige de af Com- 
modore fremsiillede computere. 




U.I.B. Electronic & Data INC. 

Lillffvangsvej 3. 3520 'arum 
02-9851 70 



TIPS-PROGRAM til Commodore 84 

Oeite program holder styt pa alle fodboldholdene. op- 

summerer automatisk karnpe, vundn«, ta&le. mil. 

points o.5.v.. hvorfftwr du kan lippe ugens ilpskupon 

med de stdste hell aktuelle data. 

Programme! layer soft Kupcneme og skrlver de udreg- 

nede ptocenlortancer pa akayrnen. 

Du vaskjer meltem systemrakker elier enkelttaEkkei. 

Du gemmer dine data og opsummerer dem den Wgen- 

de stmdag. og du er allid up lo date ved Hpningen. 

Lewes pa diskette elier Bind. 



Pris;kr. 



295,00 



Bestilllngsseddel □ diskette □ band 
sendes til: 

LD-Dat-aservice, Haslegardsvej 5, 8210 Arhus V. 

□ Check vedlagi 
C Indbetatt pa giro 8274851 

□ Betales ved modtagelsen 



-15% 

= 250,75 kr. 



PC3lnr By: . 



Printerborde 
RABAMI Serie 230 




Tiirilos uarh^ngtg hajderggulenng 

af save! skaaim- som tastarurplade. 

Ovetflade, brandfast melamm i eg. 

teak elier modehvid 

Leveies knock-down. 398|+raoms. 

Forsendes pr efterkrav over hele 

Iandet, 

REKLAMEHUSET AIS 

Kongevejs Centre! 6 • 2970 Horsholm 

Tlf. 02-57 20 00 



Et afsluttende eksempel 

Vi vil slutte denne del med at vise tre 
sma programmer, der kan vise forskel- 
len i hastighed mellem BASIC og Ma- 
skinkode. 

Program 1 er el almindeligt Basic- 
program, med lo lekker »mde i hi nan- 



den", der far computeren til at taelle til 
25500. Kor programmet og tag tid. Det 
vil tage knap 3 minutter. Tasl og kar 
program 2, der er det samme pro- 
gram, skrevet imaskinkodeog POKE't 
ind med et Basic-program. Praveat ta- 



ge tid pa det program. Naede du det - 
under 1 sekund!!! 

For god ordens skyld er der media- 
getde 7maskinkodekommandoer,der 
udgar programmet. Hvadde betyder, 
vil vi kikke pa neesle gang. 



PROGRAM 1 


PROGRAM 2 




10 X=100:PRINT"STPiRT" 


10 POKE56.159: A=40704 


LDX *$FF 


20 X=X-I 


20 FORN=lT011: READ 0 


LDY b*64 


30 Y=255 


30 POKE fti-N ,D: NEXT 


DEY 


40 Y«sY-l 


40 PRINT'START" 


BNE 


50 IFYO0THEN40 


50 SYS40705 


□EX 


60 IFXO0THEN20 


60 PRINT"STOP" 


BNE 


70 PRINT' STOP " 


78 DATA1B2 .255 . 160 . 100 ,136 ,208 ,253 ,202 ,2 


RTS 


08.248.96 





nrn sub 



BATTLESHIP 

TIL COMMODORE 64: 

10 POKES5.0:PnKE56. l29:CLR:«t.ri MDUE TOP 
OF MEMORY UnUN TO 32768 

70 gotosgbg 

9? x 

98 x I4AIN GAME LOOP 

99 x 

100 n*= -000000 

110 GET IN*: TF INi = " GOTO 150 
120 IF IN* ^ CCN3 'THENGQSUB2200 
130 IFIN4* rCH3" THENGQSUB2488 
140 IF IN* = THENDC = 1 

150 R=FNEC. 1:ONRGOSUB1000,.1100, 1200, 1300 
. 1400, 1 500. 108e f 1300: IFDCTHENGOSUB7000 

160 ifti < fl i nooro L 10 

170 60107000 
937 x 

338 x small SUB 

339 x 

10P0 POKEH0M.XU HSWxYtU.BL: X[ 1 3^XC 1 3+F 
NDf . Ji IFXI" 1 XSWGO1O1020 
1010 XU 3 = 1: ) -FNB( . 1: IFYC 1 3=YC2 30RY(1 
l=Y(33GOTnjfll& 

1070 POKEHOHOttl )f5U*Ytl 3.34:RETURN 

1097 « 

1 098 » 

1 099 * 

1100 A=HUMfXt 23fSUxYC2J:POKEft.BL:POKEfl-l 
■ BL :X(2):XC73*FNrtC . ): IFXC2 KSUGOTOl 1 20 
1110 X£23-2: Y(23=FN0C . V 1FYC2 3 =Yt 1 30RYC7 
1-YO)GOTO1110 

1 120 A=HOn+XC23*SUxYC23:POKEA,36:POKEA-l 
.35: RETURN 
119? x 

1 13*3 x LARGE SUB 
1 199 x 

1 200 A =HOM+XC 3 HSUxYC 3 3: PORI =A-2TOA: POKE 
I ,BL:NFXT 

1210 XE33-XC3 3*-FNAf . ): IFXC 3 XSWGGTQ1230 
1220 XC3 3=3: VC3 3-FNBC . 1; [FYC3 3 ; Y( 1 30RYC3 
)-Y(23GOTO1220 

1230 ft=HOn+Xf 31tSUxY(3l:POKEfl.33:P0KEfl-l 
.38: POKEA-2 .37: RETURN 
1237 x 

1299 x SMALL PLANE 
1293 X 

1300 POKEH0M+XC4 ItSUxYCI 3,BL: XC4 )=X(4 3-F 
NA( . ): IFXC 4 .GOTO1320 

1310 Xt4 )=SW: Y(4 3=FNCC ): tFY 1 4 3 = YC5 30RYC 
43=Y163G0 101310 

1320 POKEH0ritX(4 3*SUxYC4 3 .22: RETURN 
1937 x 

1398 x MED PLANE 

1399 x 

1408 A=HOmXC 5 )+SUxY(5 3:P0KCft ,8L:P0KEA+1 
.BL:XC5 3=XC5>-FNDC - )S IFXC5 ]> . GOT 01 420 
1110 XC5 3=39:V(5 3=FNCC3: EFYC53=YC4 30RYC 
53=YC63GOTOM10 

1 470 A =H0M t-X C 5 3+SUx Y ( 5 ): PDKErt . 23 : POKEA+ 1 
.3ft: RETURN 
H97 « 

1438 x LARGE PLANE 

1439 x 

1500 A^Ht)MtXC6 3 + SU*YC6 3: POR I =AT0A+2 : POKE 
I ,BU = NEXT 

1510 X163=X(63-FNA( . 3: TFXC6 3 > .GOTO 1530 
1520 X(6 3-38: Y(6 3-FHCf. . ): IFYC6 3-YC4 JQRYC 
63 = Y(5 3GOTO1520 

1530 A=HQM*X( 6 )+ SWxYCB 3: POKEfl ,25: P0KEA-+1 
.26 : POKEA+2 .27: RETURN 
1337 » 

1998 x DEPTH CHARGE 
1 933 ' 

2000 POKEFQ.38:POKEWU.TRl:PK*=PEEK(D3: IF 
PK« < >BUWUPKs*O63G0 rO2B30 



2010 POKED. BL:O^D"-SU: IFD>33767GOTO2040 
2020 PKx tPt EK CD >: TFPKx --BLTHENPOKED . 63: PO 
KEUU. .:Rt TURN 
2038 C=U:GOSLIB3000 

2040 U ^33766: OC =.: POKEUU ..: RETURN 
2\3J> « 

2199 * LFF r GUN 
7199 x 

2700 POKE! 0 . 1 8: POKEUU .NO I : P0KE3314 1 ,42= F 

ORI =ITOI0: NEXT: C=.: POKEUU, . 

2210 FORI=33100rO32813STEP-4l : POKE I +41 ,B 

l:PK^PFEKCI V- IFPKx =BL THENPOKEI ,40:NEXT 

2220 IFHK!«>BLTHENC = I: I=32772:NEXT 

2230 IFCTHENGOSUB3000: RE TURN 

2248 P0KE3281 3, 0L: RETURN 

2397 x 

2398 x RIGHT GUN 

2399 x 

2408 POKEF0.3i POKEUU. NOI;P0KE33I 51 .42: FO 
RI =1 rO10tNFXT;C= .: POKEUU . . 
2410 FORI -331 !2Ta32839STfP-33:P0KEI+39 ,B 
L:PKXTPEEKr I j: I F PKx "BL THENPOKF J .41: NEXT 
2420 !FPK*OBLrHENC = l; I=32800:N£XT 
2430 IFCTHEHGOSUB3000: RETURN 
2440 P0KE32839.BL: RETURN 
2997 x 

2938 x PLANE OR SUB HIT 

2999 x 

3000 T=PKK:FX:62K"T<28 3:&OSUB3S00: fG-6; I 
F r=230RT = 24 mi NTG =5 : GO 103850 

3818 IF r>3GANDr<40T|IENTG=3:GOrO3058 
3020 IFT:350RT=36THENTG=2: GOTO3050 
3030 IFT=27THENTG=4 
3040 lFT-34rHENTG-l 

3050 TPT=TPT ^PTf TG 3: PR IN T ! C0.1 ; SL* : TPT; 
T 5SPC J ' : XC I G 1--SWx f TG <4 ): RETURN 

3497 x 

3498 x FXFLQSION 
3493 x 

3500 POKCWU.SAU: IFF#-62rHENP0KEWU.TRI 
3510 FORI=C-2T0C'2:P0KEI .BL : NEXT: POKEC . 4 
2 

3520 FORK-SUrot>SUSTEPSU:F0Rr2=-l T01 :A 

Mi 12: I FPFE K f. A 3 - BL THENPOKEfl » EX 

3530 PDKFFQ . 20 - i 0* I 2: NEXT 12,1: POKEWU . . 

3548 FORI.-C-SWTOC*SWSrEPSW;F0RI2*-lT01 i A 

-1+ 12: 1FPEEKCA 3=£XTHENP0KEA .BL 
3550 NEXTI2. I : POKEC .BL: RETURN 
1997 x 

4998 x INITIALIZE 

4999 x 

5000 PRINT "f CLRJT2CN] INITIALIZING 



... 



5010 POKE 53280. 11 :POKE 53281,1: REM SET 

SCREEN COLORS 
501 1 FORT^5296rO563l9:PO><ET.0:MEXT 
5015 REM SET SOUND UOICE "1 
5028 POKE 54296. 15:REM UOLUtlE 
5030 POKE 54777 . 0: REM ATTACK-DECAY 
5040 POKE 54278, 240 : RFM SUSTAIN RELEASE 
5050 PDKE 54272. 100:REH LO FREQ . 
5060 FQ-51273;REf1 HI FREQ . REGISTER 
5070 UU-54276:REM UAUE FORM REGISTER 
5080 NOI=123:SAU=33:TRI=17:REM UAUE FOR 
M UALUES 

5090 H0M = 32727:D=33266:REP1 SCREEN LOCAT 
IONS 

5100 run ^10880; rem time lihit UIFFIES 

1 

5110 BL=32:SW=40:REM UALUE TO POKE BLAN 
K, SCREEN WIDTH 

5115 REM SET RANDOM UALUE FUNCTIONS 
5120 DEF FN fUR3--INTCRNDCRJ*3+l J 
5130 DFF FN Bf R D-IMT CRNUCR 3*9* 15 3 
5140 DFF FN CTR 3 - INTCRNOCR }x6'3 3 
5150 DEF FN DCR 3--INTCRN0CR 3x2+ 1 3 
5150 UEF FN ErR3-INTCRNDCR3x8+l 3 
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POKL CUSTOM c 



STi = : :F0R1 --lTOll:REA0A:STi=ST*+CHR 
i(A):MEXT:ftfn TOP OF SHIP 
5198 DATA -3? .66. 69. 70. 73. 74 .77.78,81 ,82, 
32 

5130 SBi= : PORI = 1 101 1 :READA: SB*=SB**CHR 

*( A): NEXT: REM BOTTEM OF SHIP 

5280 DATA 67.68.71.72,75,76,73,80,83.81. 
85 

5210 SL*^ :F0R[=43TQ17:SL*=SL»tCHR$Cn; 
NEXT: REM SCORE DISPLAY LINE 

5 ^LUES RI:| r ° e:RErtDPT( 1 J ; NEXT:REn POINT 

5230 DATA 159.10,25,75.20.15 
5240 GOSUB 8000: REfl READ, 
NARACTfR SET 
5250 GOTO 600(1 

5337 * 

5338 x BFGTN Gnnr 
539*1 * 

6000 X--RNTJf riKPRINT I CLRJt GR1 HREUH 3 
SPCJ- BATIIFSHIP WAR - BV KEITH ME A DEI 45 

6010 PRINT r^SPCJVOU ARE IN COMMAND OF 

A BATTLESHIP. 

e02B PRINF T2SPCJY0U HAUE 3 MINUTFS TO 
DESTROY AS MANY" 

6030 PKINT rSSPCJFNEMY SUBS AND PLANES 
AS POSSIBLF . 

6040 PRINT T ?0N J POINT UALUES: 

60S0 PRINT T t'NJ SMALL SUB - T REUJ 150COF 

FH6SPCJSI1AI.I PLANE - 75 

6060 PRINT MED SUBC3SPCJ= 4 0C 7SPC J NED 

PLANET 3SPCJ - 20 

6070 PRINT LARGE SUB a 25l /SPC 3LARGT P 
LANF = I5l 2CNJ 

6080 PRINT T rN|[5SPCJCURS0R KEYS FIRE T 
HE CANNONS. 

6090 PRINT rCNJOSPCJSPACE BAR RELEASES 

A DEPTH CHARGE. f3CNJ 
6I00 FOR X = | TO 40:NEXT 

61 10 PRINT f FOH 6SPC3PRE9S ANY KEY TO B 
EG IN PLAY" 

6120 FOR X*l TO 40; NEXT 

613R PRINT [ COU6SPC3E REUiPRrSS ANY KEY 

TO BEGIN PLAY" 
6140 GET INi: IF IN*s ' GOTO 6100 
6150 PRINT TCLR3 

6160 SCRAPIE: CHSFT^: REM SCREEN RAM. CH 
AR SET LOCATION UAl UES 

6170 GOSUB 10000: REM MOUE UIOEO BLOCK , 

6175 REM DRAW GAME DT SPLAY 
6180 POKE 53281. 5:PRINT T CLR J[ 10CNJ " 1 PO 
«E 53281.1. REM CLEAR, SET COLOR RAM 
6130 FORI =55296 T055695:POKEI . I1:NEXT:RE,M 

CHANGE SOME COLOR RAM 
6200 PRINT T LTBLU) : : FOR j = 1 TO40: PRINTCH 
R*CB5): : NEXT: REM WATER LINE 
6210 PRINT [2C03CGR2] : SPCU 3 ): ST t : REM 
SHIP TOP 

6220 PRINT SPCT13);S34;REf1 SHIP BOTTEM 
6230 PRINT TGR13 :SLi;TPT:REM SCORE LI 

6240 FOR 1=1 TO 3:XCn^39:XCI-r31--0:NEXT: 

REH RESET TARGET POSITIONS 

6245 P0KE5328I ,15 

5250 GOTO 100 

6937 x 

6398 x GAME OUER 

6399 x 

'000 POKE 53281. ?:REM CHANGE SCREEN COL 
OR 

7010 FOR J=l TO 2000iNEXT:REM WAIT 

7020 POKE 53281.1: REM RESTORE SCREEN CO 
LOR 

7030 PR IN T I CLR J 1 

7040 GOSUB 10100: REM RESTORE U10E0 LOCA 
TION 



7850 POKE 53272 ,f PEEK C53272 J AND 240 )+5: 
RF.M RESTORE STANDARD CHARACTER SET 
7060 PRJNT TCLRH ICNJTWE'S UP 1 1 " 
7070 IF fPT-WI&AME THEN HIGAMF~TPT 
7080 PRINT I IN 1 YOUR SCORE v;TPT 
7090 PRINT T FN IN I GH SCORE - : HIGAMF 
7100 PRINT ( CN J ANOTHER GAME? fY OR N ) 
7110 GET IN* TF IN$--"Y" THEN TPT=0:GOTO 

6000 

7120 IF tlHO H" GOTO 7118 
7138 END 
7997 * 

7938 * POKE CUSTOM CHAR DATA 

7939 a 

8000 TI-3^816 
3010 FORLINt8040IO835BSICP10: IT=0:FORI=1 
r016:REAUA:P0KCM.A:M=nM:TT = TTtA:NLXT 
8020 READA: IFTTOATHENPRINT "ERROR IN LIN 

8030 NEXT: RE TURN 

8040 DATA 0.0. 0.0. 0.0. 0,0. 0.0. 0.0,0, 20«). 
170 .51 ,<125 

9050 DATA 192.96.48,24.12.2.10.10.0.8,17 
0.255.127.59.21.14,1040 

9060 DATA 10. 10. 170. 255. 255. 187. 35. 23B. 8 
.0 .0.0.0,128 . 160. 160. L 659 
8070 DATA 18.10.10.10.10,255.255.204,160 
. 160 . 1 70 , 255 . 255 , 1 87 . 35 , 238 , 2274 
8030 DATA 704.255.170.255.255.187.85 238 
. 1 38 , 1 38 , 1 38 . 1 38 , 1 38 , 255 , 255 , 284 , 3053 
8090 OATA 138.138.138.138.138.255.255.20 
4 204 . 255 . 1 70 . 255 . 255 . 1 87 .85 . 238 .3053 
8100 DATA 204.255.170.255.255,187.85 238 
•13B, 138, 138,139,138.255.255.204.3053 
8110 DATA 138.138.138.138.138.255.255.20 
4 . 204 , 255 . 1 70 . 235 , 255 . 1 87 . 85 . 238 . 3033 
8 20 DATA 204.255.170.255.255.187,85.238 
.128.128,128.128.128.193.197.137.2876 
3130 DATA 3.6.12,24.48.80,84,84.137 197 
170.253.25^. 187.35.238.1325 
8140 Li A 'A 84.84.170.255.255,187.85.238.0 
.0 . 1 70 .254 ,752. 1 81 .88 . 224 . 7522 
31S0 DATA 0.19.43.255.255.43.48.0.3.6,12 
.255.255.6.3.1 ,1245 

8160 DATA 1.3.7.255.255.0.0.120.0.0.0.42 
.170.170.0.0.1031 

8170 DATA 48.80.160.170.170.170.80,40.1. 

2.5.170.169.170. 10.2.1439 

3180 OATA 0.0.0.0.0.0.0.0.0.0,0.0.0.0 0 

0.0 

8130 DATA 0.0.0.0.8.0.0.0.0.0,0,0.0.0 q 
0.0 

8200 OATA 0.0.8.0,0.0.0,0,0,0,0,0.0,0,0, 

8220 DATA 0,224,224.224.255.255,254.0.0. 
0.0.0.J70.170.42.10.1828 

8230 DATA 2,2,2.2,170.170.170.170.128.12 

8.128. J 23. 169, 170.170.168.1876 

8740 DATA 128,61 .32. 16. 8, 4.. 2. 1.1, 2. 4. 8.1 

6.32,64,128.510 

8250 DATA 0 , M6 . 84 .56 . 214 .56 . 84 . 1 46 . 1 12 
213.133.241 .171 .25,243,240.2216 
8260 DATA 27S. 243. 131 .131.131 .131.243.22 
5.227.243.51 .5t ,51 .51 .243.227.2604 
8270 DATA 277.51 .51 .227.227.51 ,51 ,51 .224 
. 224 . 1 5 . 207 . 1 32 . 1 5 . 233 . 224 .2276 
0280 DATA 60.102.102.102.102.107.60 0 24 
.24 .24 .24.21.24 .24.0.798 

8230 DATA 1 24 .6 .6 . 1 2 .40 .36 . 1 26 .0 . 1 24 .6 .6 
.28.6.6.124.8.718 

8380 DATA 102 . 102 . 102 . 1 27 .6 .6 .6 .8 . 126 .96 
.36.124.6.6.124.0.1023 

8310 DATA 60.36.96.124.102.102.60.0.126 
6. 12, 24, 24, 24.24 .0.380 

832R UAIA 60.102.102.60.102.102.60.0.60 
102.102.62 .6.6.60.0.386 
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130 DATA 0.0.0.0.0.0.0.0,0.0.0.0.0.0.0. 

8310 OATfi B .0 .0 .0.0. 0.0. 0.1 92. 6 .48.0,3.1 
92.17,0.453 

8358 UATA I 17 .716, 1 12,0.11 ,27.11 .0.0,0.0 
.68.17:6.60.0 .0.211 

9995 * 

9996 * WE UIOEO BLOCK TO *3 

9997 r SE r SCREEN RATI AND 
9993 * CHAR SET LOCATIONS 
9933 * 

10000 IF SCRnn<0 OR SCRAWM5 THIN PRINT 

ireui si.-Rr.rN Ron location error = siqp 

10010 II CHSE KB OR CHSETM5 'HfcN CHSET = 
4 

10020 POKE 56576. 5:REM UIOEO BLOCK LOCA 
TIflN 

10030 POKE "53272. l6*SCRAmCHSET : REH SCR 
EEN ROM. CHAR 9FT LOCATION 

10040 FOK [ 64B. l28tlKSCRnn;REn notify b 
nsic 

10650 RETURN 

10097 * 

10098 ■ RC^TORC UIOE0 TO NORMAL 

10099 * 

I01P0 POKE 56576. 7: RE" "J I DEO BLOCK 
10M0 POKE l i3772.20:REH SCREEN RAM. CHA 
R SET 

10120 POKE 618.1:PCT1 BASIC'S SCREEN LOC 
AT ION 

I0I30 RETURN 



•CONTROLS! H1 "TP BATTLESHIP 
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SERIOUS... 
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10 stk. double density 350- 

Inklusive plastbox, moms og forsendelse! 
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Postboks28 - 2980Kokkedal 
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RUN 



RUN bringer nyheder, tests af hardware og 
software, litteratur m.m., ait med relation til 
Commodore. RUN vil indeholde mange 
programmer. 

RUN udkomrner januar, marts, april, juni, 
august, September, november og december 
i 1985. 

RUN fas i kioskerne samt hos Commodore 
forhandlere. _ 

KR. 24,50 

Abonnement 6 numre KR. 128,-. incl. moms. 
Benyt bestillingskuponen pa bagsiden. 

4Na — 




AUN(POST€N 



PCS of Denmark 

The Personal Computer Society 



BLIV MEDLEM NU 



Undedsgnede onsker al blive optaget som medlein: 



Personal Computer Society 
Telefon: 01-32 71 49 
Beverly Kteiman 

(Generalsekretaer) 



Navn: 



Adresse 



Posinummer . 
Telefon: 



.By: 




pi Q\ 



Jeg er ssertig jnteresseret i 



Ri U N 



TILBUD TILBUD 



DISKETTE 
KR. 118,- 

incl, moms 



Har du ikke tid eller lyst til selv at indtaste 
de mange programmer i RUN kan du kobe 
programmerne pa diskette eller 
kassetteband (kun ved forudbetaling). 

RUN PRIVATREGNSKAB 

kan nu ogsa kebes pa diskette/kassetteband 
KR. 195,- incl. moms (kun ved forudbetaling). 
Betaling: 

Ved check eller pa postgirokonto 1 48 31 61. 




commodore microcomputer-systeni 
raterocomputer-systdxn - comraodor 
ocomputer system • commodore m 
puter-sy$tera • commodore micro co 

mtan • commwiorc i 



TAPE 
KR. 98,- 



incl. moms 




Tryksag 



E 



1 

1 



Computerworld Danmark A/S 
Torvegade 52 
1400 Ksbenhavn K 



The PERSONAL COMPUTER SOCIETY 
Herluf Trollesgade 7, 3. sal 
DK-1052 Kobenhavn K. 
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Tryksag 



Computerworid Danmark A/S 

Torvegade 52 
1400 Ksbenhavn K 



Nu far Danmark sit eget 
"Personal Computer Society^ 



Af Freddie Ottenhelm 

De sakaldte edb»usergroupus i USA er naasten blevet en ny llvsform eller 
en ny slags socialt samvaer pi tvaers af alder, race, kon. stilling og social 
status i samfundet. PC-problematikken har skabt noget nyt, som folk kan 
sarnies omkring til moder run dt omkring I byerne, hvor der diskuteres alt, 
hvad der vednarer PC-kommunikationen - og der udvikles gratis bruger- 
software, sa det er en fomejelse. 
Det kommer nu ogsa til at ske i Danmark... 



Danmark far nu sine egne »user- 
group«s for edb-brugere - sma. og sto- 
re klubber og foreninger, hvor med- 
lemmer samles for at udveksle erfarin- 
ger, bytte software, diskutere proble- 
mer af enhver art vednarende de n dag- 
iige brug af PC'eren - eiler blot samles 
med meningsfcelter omkring en snak 
om alt muligl i dagens og fremtidens 
kommunikationssamfund. 

For kort tid siden slittedes "The Fter- 
sonal Computer Coiety« - PCS ol Den- 
mark. Det er en art paraplyorganisa- 
tion , der f remover har sat sig det ma) at 
starte »user-groups u overalt i Dan- 
mark . Best y relsen har konst itueret sig, 
og beslar forelabig af fern medlern- 
mer; Palle Helge (formand), Carl Chr, 
/Egidius, Knud Lensted. Preben Engell 
samt Beverly Kleiman. Sidstnasvnteer 
foreningens generalsekretaer og tore- 
nlngens initiativtager. 

Problemer med modems 

Om det nye intiativ siger Beverly Klei- 
man: 

-Tlden er nu inde til, at ogsa danske 
PC-brugere gar i gang med at tale med 
hverandre over deres computer pa 
samme made, som det i dag sker i 
USA. 

Men vi har tor tiden nogle tortaerdeli- 
ge problemer omkring modems t Dan- 
mark. Den sag befinder sig i dag pa sa 
elemental et stadium, sa man nok 
ma sige. at ikke ret mange overhove- 
det har mulighed for at tale rigtigt sam- 
men. Derfor vit en af vore forste opga- 
ver besta i at bearbejde P&T og andre 
myndjgheder for at 1a kommunika- 
tionskanaler af enhver art til a! lunge- 
re. sa oanske PC-brugere kan fa glEede 
af at *snakke sammenc 



PCS Danmark forsoger nu at fa kon- 
(akter til folk , der kan stille lokaler lil ra- 
dighed for »user-groups«. Og samtidig 
onsker vi at finde dygtige folk, der kan 
fagrupperne t gang, fortsaatter Beverly 
Klei man . Vi soger fol k med gode orga- 
nisatoriske evner, og det er mindre 
vaesentl igt, om de selv er brugere eller 
ej. Blot de kan se betydningen af det. vi 
her er i faard med. 

Derncest begynder vi med at opbyg- 
ge: 

1 . En on-line information service, som 
alle medlemmer kan bruge til non- 
commercial brug. VI vtl for sma 
penge skabe et erfarmgsgrundlag 
med nogl e af de store databaser og 
utilities. 

2. Brugergrupperne oprettes derefter 
for: 

a) at skubbe til udviklingen af den 
sSkaldte »public domain soft- 
ware« - d.v.s. software, der kan 
kopieres af alle og enhver. lordi 
det er udviklet i brugergrupper- 
ne. 

b) at oprette de sakaldte "electro- 
nic bulletin boards" - d.v.s. et 
meddelelsessystem for med- 
lemmerne om alt, hvad der har 
med «faget« at gere: Medetids- 
punkter. tekniske oplysninger. 



data af alle mullge slags. Folk, 
der f.eks. kommer til landet, kan 
straks rmge op og la kontakt 
med »systemet« hernjemme og 
dermed fa den support og de op- 
lysninger, derer nedvendige for 
at kunne fungere i vort samfund 
tor et kortere eller lasngere ttds- 
rum. 

Medlemskab af det nysliftede PCS of 
Denmark kommer til at koste 400 kr 
arligt for etpersonligt medtemskab. og 
for f i rmamedl emskaber gaalder det , at 
der skaltegneset medlemskab pr. fern 
ansatte i virksomheden - ogsa til 400 
kr. pr. medlemskab. For en virksom- 
hed med 25 ansatte kosler det altsa 
2000 kr. arligt at vasre medlem. 

De ferste arrangements vil vsere. 
at der i maj vil blive arrangeret en de- 
monstration af on-line anvendelses- 
muligheder og udstyr. 

Yderllgere opJysninger: 

PCS of Denmark 

ati gen.sekr. Beverly Kleiman, 

HerluftTrollesgade7, 3. 

DK 1052 Kbh. K. 

Tlf. (01) 32 71 49. 
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Indtastningsvejledning 

for Commodore 64 & VIC-20: 




De programmer, der trykt er i RUN 
ser lidt anderledes ud end du er 
vant ti I at se pa din skaerm ellerprf li- 
ter. Det sky Ides, at vi har anvendt et 
saerligt printprogram. demoversset- 
ter« de grafiske tegn til et mere lae- 
seligt sprog. Vi beder dig derfor lae- 
se indtastningsvejledningen om- 
hyggeiigt igennem, for du starter 
med at indtaste dine programmer. 



Alle de grafiske legn er i vort prepro- 
gram sal mellem to kantede parente- 
ser, og du skal saledes IKKE indtaste 
disse parenteser eller det, der star 
imellem. Du skal trykke pa den eller de 
taster, der svarer til det. der er skrevet 
mellem parenteserne ifig. skemael 
her pa siden. Star der et tal umiddel- 
bart efter den ferste kantede parentes, 
skal de pagseldende tastertrykkes det 
antal gange, der star skrevet. 
Star der SPC meltem de kantede pa- 
renteser, trykker du pa mellem rums- 
tast. Star der et tal foran SPC. trykker 
du tasten det antal gange. 

Du vil ogsa komme ud Tor. at der 
Imellem parenteserne f.eks. star S/A - 
I sa tilfaelder trykker du pa SHIFT-ta- 
stenog A. Havdeder i stedet staet C/A. 
skulle du have t rykket pa Commodore- 
tasten og A. Ogsa i disse tilfaalde, kan 
der vsere et tal. der angiver antal gan- 
ge. 



Kontrolsum 

I programmerne til Commodore 64 er 
der knyttet et sakaldt kontrolsums- 
program, der kan lette tejlfindlng ved 
indtastning. Fremgangsmaden ved 
brugen af dette program er falgende: 

1. Du starter med at indtaste kon- 
trolsumsprograrnmet og gemmer det 
til fremtidig brug. 

2. Far indtastning en af de ovrige 
programmer starter du med at indla?se 
kontrolsumsprogrammet. 

3. Sa indtaster du dit program. 

4. Tag altid en kopi af dit program, 
inden du tester det. 

5. Skriv GOTO 62OO0 og besvar de 
spargsmal, som programmet stiller. 

6- Sammenlign de kontrolsummer 
med de, der er trykt i bladet og find de 
linier, hvor du evt. har tastet tejl. 

Almindelige rad. 

Vaar meget omhyggelig med ind- 
tastningen, og specielt nar det drejer 
sig om de sakaldte DATA-Iinier. En fejl i 
disse linier kan forarsage, at compute- 
ren -»gar i baglas« og du bliver nodt til at 
slukke for den. 

Derfor endnu en gang : tag en kopi al 
dit program, inden du kerer det. 

Hvis computeren giver en fejlmed- 
delelse i en linie, hvor der findes en 
READ-kommando, kan du vsere nse- 
sten sikker pa, at fejlen IKKE skal fin- 
des i den p&gseldende linie, men der- 
tmod i en af DATA-linierne. 

Hvis du indtaster en programlinie, 
der fylder lo linier pa sksermen fuldt ud ( 



(80 tegn) vil cursoren springe ned i den 
tredje linie. Et tryk pa RETURN-tasten 
her vil IKKE indlaase den pagaeldende 
linie. Du er i sa tilfaelde nodt til at trykke 
cursoren en eller to linier op, for du 
trykker pa return. 

Programmerne i RUN 

Programmerne, der er trykt i RUN. er 
testet og kan funktionere. Da program- 
merne mange gange er ret komptice- 
rede, kan vi ikke 100% udelukke, at et 
program i en speciel situation vil kunne 
opfere sig uventel. Dette er dog >kke 
normal!, og i sa tilfaelde vil redaktionen 
naturligvls vaere taknemmelig for en 
SKRIFTLIG orientering. Derimod skul- 
le der ikke leengere vsere nogen tek- 
nisk fejlrnulighed I proceduren Ira 
diskette/band til trykning i bladet. 
Eventuelle rettelser og korrektioner til 
programmer eller artikier i RUN vil sa 
vidt muligt blive brag! i det efterfslgen- 
de nummer under rubrikken RUNA- 
MOK. Vi beder Iseserne om IKKE al ret- 
te telefonisk henvendelse om disse 
ting. 

RUNs redaktion kan heller ikke pa- 
tage sig telefonisk at vaere laaserne be- 
hjEBlpelige med fejlfinding ved indtast- 
ning eller tvivlsspergsmal om pro- 
grammerne i det hele taget. Hvis man 
har lasst sin brugervejledning og felger 
denne vejledning, skulle indtastningen 
af programmerne ikke give de store 
problemer. 

God fomiajelse. 
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52000 ft£n KOWTROLSUJ1 PROGRAfl 

62010 UOSUB 67050 

62020 ISOTO 67700 

62030 IF FL>=0 THF.N 62020 

62010 END 

62850 OEfFN DEEKlX J = PEEKCX J+ZSWEEKtX 
+13 

62060 DATA 

62070 DATf* 165.757.166.253.133.070.131,0 
21,032,013 

62080 HAT* 156,716.160.001.177.095.133,2 
51.710.013 

670S0 DAT* 700,177,095.133.257.208,177,0 
35,133.753 

621B0 nmn 700.169.000,133.751 ,177,095.2 

10,006 .071 

62H0 Dfllft 103.251.700.708.241,036 
52120 PATfl -1 
62130 P-D = 52992 
BZH0 RESTORE 

62150 READ Til IF T4<>"?0nB" THEN 62150 
621fiB READ T : IF 1)«0 THEN POKE AO.T : 
*D = AO-U ; EHTO 67168 

62170 PRJMT"tCLPJHUOR 0NSKES KONTROLSUpl 
PRIN7ET: " 

62180 IHPUT"TU/MONITOP^0 PRINTER** PLDT7 

eR=6"; oeu 

67190 RETURN 

62208 REP1 DO INI TAL jSfUlGN 

62210 FL s 0 : INPUT "F0RSTE LINE FL 

: IF Fl_<0 THEN RETURN 

62270 LL = 6553S : INPUT "SlDSTE LINE 

LL: PRINT "L CL RJ " 
62230 IF DEU>0 THEN OPEN 1 ,UE<J 



62210 LN - FL : C = 0 : CI = 8 

62250 POKE 252.LN-INULN/256 J*256 : POKE 

253.LN/256 
62260 SYS 52992: CS--PEEKC251 JiLM*fNDEEKt2 
52 3H 

62278 Ti = LEFT*CS1R*£LN-l )i 'C6SPCJ\6)+ 

LtFTKSTRHCS )t "I ,'SPCJ ~ .7 ) 

62280 IF OEU*0 THEN PRINT Ti; 

62290 IF DEU>0 THEN PRINT«l,Tt; 

62308 IF DELU0 THEN C = Ctl : IF C>=3 TH 

EN PRINT : C = 0 : CI = CI ♦ 1 

67330 IF OELO0 THEM C r c-M : IF C>=3 TH 

EN PRINT ol : C = 0 : CI = CI * I 

62320 If LN<*(.L AND PLEKC7S4 J TH£N 62250 

62330 IF O£U>0 THEN PRINT"! : CLOSE I 

62319 END 
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RUN Nr. 4 

udkommerden 8. juni 1985 

Du far chancen for at vinde den nye 128*er. 
Gennemgang af tool -programmer 
3. del af RUN's tipsprogram 
Din Commodore kan »snakke« med andre compulere 
Vi gar rigtig i gang med maskinkodning 
Begyndersider 
Spasndende nyheder 
og masser af programmer. 




GAMLE RUN'ER 




GAMLE RUN'ER 

Der er mange lassere, der ansker en 
kompfet sarnling af RUN. Vi har jasvn- 
ligt forespergsler, og kan i den anled- 
ning opiyse. ai man ved indsendelse at 
kr. 25,- p3 postgiro 1 48 31 61 kan la 
sendt del nummer. man mangier. 



INDSENDELSE AF 
PROGRAMMER TIL RUN 



Har du skrevet et godt program, som 
du mener har inleresse for andre, kan 
du sende en kassette eller diskette til 
RUNs redaktion. 0nsker du del ind- 
sencfte materiale returnerel, bedesdu 
venligst vedlaagge frankeret svarku- 
vert. 

Alle programmer, der trykkes i 
RUN, praamieres med 10 disketter el- 
ler 24 band efier eget anske. 

Som privatperson kan du ligeledes 
annoncere gratis i RUN. Betlngelsen 
er dog, at det ikke er piratkopier, du vil 
saslge. Hvis redaktionen skcunner, at 
delte er tilfseldet, vil annoncen ikke 
blive bragt. 

Vi glaeder os til at hare 1 ra dig. 



PRIVATAN NONCE 



Vic-20 Cartridge 

16Kramudvidelse 350.- 

Super expander 3 K ram 1 50,- 

Maskin-kofje-monitor . . 70,- 

Programmer'said . . . 70,- 

Privat0konomi 125.- 
SPIL TIL VIC-20 PA CARTRIDGE 

Omegerace . ... 60,- 

Rader ratrace 60,- 

Roadrace 60.- 

Starbatlle 60.- 

Sargon II chess 60,- 

Missioninpossible 60.- 
BAND TIL VIC-20 

Vlc-tips 20,- 

Checkregnskab min . 8 K 20,- 



Kartoteksprogrammin. 16 K . 20,- 
DET HELE FOR 1000 KR. 

Lars Medekjaar 
Krogardsvej 4 
4623 Ll.Skensved 
Tit. (03)66 93 23. 



FUTURE line 




PRiESENTERER! 

Trebestekst tilcbm64 

100% dansk tekstbehandlingsprogram i ren M/C 
med folgende funktioner: 

- Dansk Karaktersaet (i*E0Aa?0a) pa printer og skaerm 

- Fuldautomatisk scroll i alle retninger op til 
80 tegn pr. linie. 

• Blok opdelt, (flyt, fjern & slet blok). 

- Kan bruges med CBM printere og tekstbehandlings- 
printere, som JUKI 6100 & Brother HR15. 

- Centrering, Hejre justificering & Defmerbar TAB 
(optil 14 stk.). 

- Formaterer mens man skriver. 

- Funktionsforklaring at' alle kommandoer, i 
vinduer pa skaermen. 

- 20K tekst. . 

- Directory af diskindhold. 

- Udfarlig brugermanual. 

DISK KR. 498,-- yejl. 
TAPE KR. 448,-. udsaigspriser! 

NU med TURBO LOADER pa bade disk & tape. 

FUTUREIine,Tj»rebyvej 9, 3400 Hillerod 
TIf. 02-110428 

DANMARKS SOFTWAREHOUSE 

HENVISN1NG TILN«RMESTE FORHANDLER 
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R A QT2 A,le BASF dala-media er specielt 
C/iOiT" udviklede, specie'i produce rede og 

1 1 "4- 1 genncmteslede. Del er BASF's 

ICVCtlllSl 5 ® r P05itionengarantilor.Overhele 

verden engageret i kemi og fysik. 

Sierdeles ertaren i samspillel mellem 

apparal og medie. Del or grundlaget 

lor BASF lopkvalitet. 



A/S Badilin 
Ved Sladsgraven 15 
Postboks173'1 (01)570011 
2300 Kobenhavn S 




1068 7562158 10 



HVEM HJ/ELR 



H0LSTEBR0 BIBLIOTEK 

INFORMATION 
KIRKESTRCOE 11 

7500 HOLSTEBRO 






MATRIX PRINTER MPS 801 

MPS 801 er til dig. der vil have en virkelig profession^ 
printer 50 karakterer pr. sek. og 80 karakterer pr. linie. 
kleel ill udskrivning at fakturaer, checks, breve o. lign. 

Der er fuldt alfanumerisk tegnsst samt 
Comirodoregrafik. Den kan ogsa skrive med negativ 
skritt og lave torstonede karakterer Desuden kan du 
designe tegn og bomarker med Commodore MPS 801 . 



Commodore Computei er den storste 
leveranrior af h|emmecornputere i 
Danmark - og del brpligter. 

Vote perifere enhedei lever luldt og 
he!t op lil vote computeres standard 

Med vote printere, plottere. diskette- 
stationer og datasette udvider du dine 
muligheder savel pa ctet administrative 
omrade som pa omradet tor ucivikliitg al 
egne programmer 



MATRIX PRINTER MPS 802 

Ideet til tekstbehandling. Fordi dens tegnoplesning er sa 
fwj. Velegnet til administrative systemer. Fordi den 
er beundringsvtGrdig hurtig med 80 karakterer pr. sek. 
Fordi den ubesvaeret laver 20, 40 eller 80 tegn pr. linie. 
Bidirectional printning. Naturligvis med den linie- 
afstand du programmerer den til. Printer MPS 802 arbej- 
rter med papirtormater op til A4. 



Commodore 

Fordi frerntiden forlmngst 
erbegyndt. 



